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

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

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

总结

以上是内存溢出为你收集整理的数组 – 如何在Perl中创建哈希数组并在其中循环？全部内容，希望文章能够帮你解决数组 – 如何在Perl中创建哈希数组并在其中循环？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。