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'};
   }
}