如何在Perl中创建哈希数组并在其中循环？

Question

我正在尝试创建一个哈希数组，但是我在循环数组时遇到了麻烦。 我试过这段代码，但它不起作用：

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

Answer 1

首先，你为什么不use strict和warnings ？ 以下几行应位于您创建的每个Perl程序的顶部，紧跟在#!/usr/bin/perl 。 永远 。

use strict;
use warnings;

而且我知道你不是因为我很确定你会得到一些很好的错误信息，这些错误信息来自strict和warnings ，以及代码中的许多其他地方，从你的变量使用来判断。

第二，你为什么不这样做：

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

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

第三，对于拉里沃尔的爱， 请用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}";
    }
}

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

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

另外，要注意每个函数，它可以使散列迭代器处于不完整状态 。

Answer 3

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