Perlでの配列のハッシュ

Question

配列のハッシュを作成しようとしています。アレイ全体にアクセス/印刷するにはどうすればよいですか？ここでは、コードは次のとおりです。

my %data;  
my @row = ("My", "Name", "is", "Anthony", "Gonzalves"); 
print "@row"; 
$data{'First'} = \@row; 
print "@data{'First'}"; 

上記のコードの出力は次のようになります。 私の名前はアンソニーGonzalvesARRAY（0x7fa1a5831dc8）です。

Answer 1

コードで$data {First}はの参照の配列です。要素にアクセスするには（すべてリストとして）、@{}で回避します。だから、：

foreach my $element (@{$data {First}}) { 
    print $element; 
} 

あるいは、短く、かつ独自の行に各要素を印刷：

use 5.010; 
say for @{$data {First}}; 

Answer 2

あなたは、配列の参照にアクセスするために@{}を使用する必要があります。

%HoA=(
    flintstones =>["fred","barney"], 
); 

$HoA{teletubbies}=["tinky winky","dipsy","laa-laa","po"]; 

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

出力は：

simpsons: homer Marge bart 
teletubbies: tinky winky dipsy laa-laa po