我正在尝试创建一个哈希数组,但是我在循环数组时遇到了麻烦.我试过这段代码,但它不起作用：
for ($i = 0; $i<@pattern; $i++){
while(($k,$v)= each $pattern[$i]){
debug(" $k: $v");
}
}
解决方法
首先,你为什么不使用严格和警告？以下几行应位于您创建的每个Perl程序的顶部,紧跟在#！/usr/bin/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");
}
}