如何在 Perl 中创建哈希数组并循环遍历它们？

Question

我正在尝试创建一个哈希数组，但在循环该数组时遇到问题。我已经尝试过这段代码，但它不起作用：

for  ($i = 0; $i<@pattern; $i++){
  while(($k, $v)= each $pattern[$i]){
    debug(" $k: $v");
  }
}

Answer 1

首先，为什么不使用strict和警告？以下几行应该位于您创建的每个 Perl 程序的顶部，紧接在 #!/usr/bin/perl 之后。 总是。

use strict;
use warnings;

我知道你不是，因为我很确定你会从 strict 和 warnings 中以及你的许多其他地方得到一些不错的错误消息。代码也是如此，根据您的变量使用来判断。

其次，为什么不这样做：

for my $i (@pattern) {
  ..
}

循环遍历 @pattern 中的每个元素，一次将它们分配给 $i 一个。然后，在循环中，当您需要特定元素时，只需使用 $i 即可。对 $i 的更改将反映在 @pattern 中，当循环退出时，$i 将超出范围，本质上是在之后清理本身。

第三，出于 Larry Wall 的热爱，请使用 my 声明您的变量以本地化它们。这真的没那么难，而且它会让你成为一个更好的人，我保证。

第四，也是最后一点，您的数组存储对哈希值的引用，而不是哈希值。如果他们存储哈希值，您的代码将是错误的，因为哈希值以 % 开头，而不是 $ 。事实上，引用（任何类型）都是标量值，因此以 $ 开头。所以我们需要取消引用它们来获取哈希值：

for my $i (@pattern) {
  while(my($k, $v) = each %{$i}) {
    debug(" $k: $v");
  }
}

或者，你的方式：

for  (my $i = 0; $i<@pattern; $i++) { # added a my() for good measure
  while(my($k, $v) = each %{$pattern[$i]}) {
    debug(" $k: $v");
  }
}

Answer 2

试试这个：

for my $hashref (@pattern) {
    for my $key (keys %$hashref) {
        debug "$key: $hashref->{$key}";
    }
}

您尝试的最大问题是每个$pattern[$i]。 each 函数需要一个哈希来工作，但是 $pattern[$ i] 返回一个 hashref（即对哈希的引用）。您可以通过取消引用 $pattern[$i] 作为哈希来修复代码：

while(my($k, $v) = each %{$pattern[$i]}) {

另外，请注意每个函数，它可以 让哈希迭代器处于不完整状态。

Answer 3

请参阅 perl 数据结构手册的文档：
perldoc perldsc