Perl：ハッシュの配列をスライスする

Question

以下のコードの出力は常に空です。私が間違っていることを確かめず、助けに感謝します。どのようにして、ハッシュの配列内の特定のハッシュのキーの値に到達するのですか？

use strict; 
use warnings; 

my %dot1 = ('a'=>1,'b'=>2); 
my %dot2 = ('a'=>3,'b'=>4); 
my %dot3 = ('a'=>5,'b'=>6); 
my %dot4 = ('a'=>7,'b'=>8); 

my @array = (%dot1,%dot2,%dot3,%dot4); 

my %x = $array[2]; 
my $y = $x->{'a'}; 

print "$y \n"; 

Answer 1

ハッシュリファレンスの配列が必要な場合は、そのように明示する必要があります。あなたが何をしたいか

my @array = (\%dot1, \%dot2, \%dot3, \%dot4); 
my %x = %{$array[2]}; 
my $y = $x{a}; 
print "$y\n"; 

Answer 2

は、そうでない場合はperlがリストコンテキストでハッシュを評価し、あなたの@arrayにあなたのハッシュへの参照を追加しています。

my @array = (\%dot1,\%dot2,\%dot3,\%dot4); 
my $x = $array[2]; 
my $y = $x->{'a'}; 

print "$y \n"; 

Answer 3

あなたはハッシュの配列を持っていません。ハッシュのような配列があります。キーはaとbの順で4回あり、比較的ランダムな順序です。

print Dumper \@array; 
$VAR1 = [ 
      'a', 
      1, 
      'b', 
      2, 
      'a', 
      3, 
      'b', 
      4, 
      'a', 
      5, 
      'b', 
      6, 
      'a', 
      7, 
      'b', 
      8 
     ]; 

その後、あなたはハッシュリファレンス$xからキーaを取るための構文である、$x->{a}を使用しているが、あなたは今までハッシュ%aを宣言しました。それはあなたが1つの値の奇妙なサイズのリストを与えるので、順番にそれは壊れます。

代わりに、ハッシュへの参照を配列に追加してください。そうすれば、フラットリストの代わりにマルチレベルのデータ構造が得られます。次に、x変数をスカラー$xにします。

my %dot1 = ('a'=>1,'b'=>2); 
my %dot2 = ('a'=>3,'b'=>4); 
my %dot3 = ('a'=>5,'b'=>6); 
my %dot4 = ('a'=>7,'b'=>8); 

my @array = (\%dot1,\%dot2,\%dot3,\%dot4); # here 


my $x = $array[2]; # here 
my $y = $x->{'a'}; 

print "$y \n"; 

これは5と表示されます。

perlrefとperlreftutのデータ構造を読んでください。