1

我已经@a用散列的散列填充了数组，因此：

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

给我一个价值。

我现在想在数组中选择一个元素（比如 index 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 },
          },
        ];

任何帮助将非常感激。

4

2 回答 2

2

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

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

有关参考的更多信息，请参见man perlref

于 2013-10-23T12:11:57.870 回答
1

您的代码确实有效。这是我在虚拟数组上工作的代码。我猜你的问题是你没有测试你的数组元素是否实际上是哈希引用的哈希引用。例如，如果$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
于 2013-10-23T13:18:29.400 回答