Perlでハッシュで配列名を取得する方法はありますか？

Question

私はPerlプログラムで同じ構造の配列を複数使用していますが、ある時点でそこに名前を出力する必要があります。つまり、'array_name'を@array_nameから取得する必要があります。
どうすればいいですか？それが不可能な場合は、配列とその名前の「相対的な」格納の便利な方法を提案できますか？
ありがとうございます。

Answer 1

それは確かに可能ですが、私は、ハッシュで無名配列の参照として、あなたの配列を格納することをお勧めしたい：

my @array = @{$arrays{"$some_array_name"}}; 

Answer 2

：名前$some_array_nameで配列を取得し、その後

my %arrays = (
    'array_name' => [ qw(contents of array array_name) ], 
    # etc 
) 

自動ネームストレージはありません。これは、使用する変数の名前に過ぎません。あなたはそれを格納する必要がある場合、私はこのようなハッシュを使用してお勧めします：

$array->{name} = "array_name"; 
$array->{data} = [@array_name]; 

Answer 3

次のように匿名配列のハッシュを作成することができます。

%HoA = (
    flintstones => [ "fred", "barney" ], 
    jetsons  => [ "george", "jane", "elroy" ], 
    simpsons  => [ "homer", "marge", "bart" ], 
); 

あなたはAの最初の要素を設定することができます特定の配列を次のよう

$HoA{flintstones}[0] = "Fred"; 

を適切な配列要素への置換を適用し、第二シンプソンを活用する：

$HoA{simpsons}[1] =~ s/(\w)/\u$1/; 

あなたはハッシュのキーをループによって家族の全てを印刷することができます。

for $family (keys %HoA) { 
    print "$family: @{ $HoA{$family} }\n"; 
}