perl - 「文字列をハッシュ参照として使用できません」 hash of hash of hash

Question

ハッシュのハッシュのハッシュの処理に問題が発生したようです。私のデータ構造は次のようなものです：

$atomsArray{$number}{$serial} = {
    atom => $atom,
    x => $x,
    y => $y,
    z => $z
};

そして、アトムを繰り返し処理しているときにこの問題に遭遇します

for my $number(sort keys %atomsArray){
    for my $serial(sort keys %{$atomsArray{$number}}){
       #cannot iterate through x,y,z
    }
}

ただし、$serial を反復処理せずに x、y、z を取得したいのですが、アトムを計算する必要があるアトム間で異なるため、ハッシュにハッシュを含めることが重要です。

Answer 1

私はとても愚かな人なので、単純な繰り返しができませんでした。ハッシュのハッシュのハッシュを反復する方法の答えは次のとおりです。

for my $number(sort keys %atomsArray){
   for my $serial(sort keys %{$atomsArray{$number}}){
      print $atomsArray{$number}{$serial}{'x'};
   }
}