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

use strict;
use warnings;

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

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

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

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

第三,对于拉里沃尔的爱,请用我的声明你的变量来本地化它们.我保证,这真的不是那么难,它会让你成为一个更好的人.

第四,也就是说,你的数组存储对哈希的引用,而不是哈希.如果它们存储了哈希值,那么代码就会出错,因为哈希值以％开头,而不是$.实际上,引用(任何类型)都是标量值,因此以$开头.因此我们需要取消引用它们以获得哈希：

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");
  }
}