访问哈希数组中的元素（Perl）

Question

我已经用哈希值填充了数组@a，因此：

$a[0]{'keyA'}{'keyB'}

给我一​​个价值。

我现在想在数组中选择一个元素（比如索引0）并按字母顺序遍历散列中的所有元素，如下所示：

for my $keyA (sort keys $a[0]) {
    for my $keyB (sort keys $a[0]{$keyA}) {
        print $a[0]{$keyA}{$keyB};
    }
}

我不知道为什么，但 Perl 完全跳过了循环。我可以在使用 Eclipse 调试器单步执行时看到这一点。

我的数组的数据::转储：

$VAR1 = [
          {},
          {
            'Z' => { 'Z' => 1 },
            'G' => { ''  => 1 },
          },
          undef,
          {
            'A' => { 'A03' => 1, 'A02' => 1 },
            'G' => { 'G29' => 3 },
            'Z' => { 'Z' => 1 },
            'F' => { 'F24' => 2, 'F27' => 1 },
          },
          {
            'A' => { 'A02' => 2 },
            'O' => { 'O62' => 1 },
            'B' => { 'B05' => 1 },
          },
        ];

任何帮助将不胜感激。

Answer 1

该数组包含对哈希的引用。您需要取消引用它们：

for my $keyA (sort keys %{ $a[0] })
   for my $keyB (sort keys %{ $a[0]{$keyA} }) {

更多参考资料请见man perlref

Answer 2

您的代码确实有效。这是我在虚拟数组上工作的代码。 我想您的问题是您没有测试您的数组元素是否实际上是哈希引用的哈希引用。例如，如果$a[2] 是'foo'，那么您的代码就会中断。如果是这种情况，则必须测试每个元素和元素的每个散列值。例如if (ref $array[0] eq 'HASH'){...}

my @array = ({'a'=>{'aa'=>11, 'bb'=>12, 'cc'=>13},
              'b'=>{'aaa'=>21 , 'bbb'=>22, 'ddd'=>23},
              'c'=>{'aaaa'=>31, 'bbbb'=>32 , 'cccc'=>33},
            });

for my $keyA (sort keys $array[0]) {
    for my $keyB (sort keys $array[0]{$keyA}) {
        print $array[0]{$keyA}{$keyB},"\n";
    }
}

输出：

11
12
13
21
22
23
31
32
33