如何在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,一次分配给它们$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}";
    }
}

你正在尝试的最大问题是each $pattern[$i].的每个函数期望的散列上下工夫,但$pattern[$i]返回hashref(即参考散列).您可以通过取消引用$pattern[$i]作为哈希来修复代码:

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