迭代perl中的哈希值

Question

我有一个哈希，让我们说20个值。

它以这种方式初始化：

my $line = $_[0]->[0];

    foreach my $value ($line) {
        print $value;
    }

现在，当我尝试获取$ line中每个哈希的值时，它表示：在file.pl第89行打印时使用未初始化的值

有没有办法迭代哈希的每个值？

我也尝试过：

my %line = $_[0]->[0];

    foreach my $key (keys %line) {
        print %line->{$key};
    }

但这也行不通：参考文献找到了第89行的file.pl所需的偶数大小列表

谁知道该怎么办？ 应该不那么困难......

Answer 1

迭代哈希中的值：

for my $value (values %hash) {
  print $value;
}

Answer 2

第一个示例中的$line是标量，而不是哈希。

如果它是哈希引用，请使用%{$line}取消引用它。

Answer 3

首先，您必须了解散列和散列引用之间的区别。

你的初始赋值$_[0]->[0]意味着：取当前函数的第一个参数（ $_[0] ），取消引用它（ -> ）并认为它是一个数组并检索它的第一个值（ [0] ）。 该值不能是列表或散列，它必须是标量（string，int，float，reference）。

这是一些例子：

my %hash = ( MyKey => "MyValue");
my $hashref = \%hash;
# The next line print all elements of %hash
foreach (keys %hash) { print $_ }
# And is equivalent to
foreach (keys %{$hashref}) { print $_ }
$hash{MyKey} == $hashref->{MyKey}; # is true

有关更多详细信息，请参阅http://perldoc.perl.org/perlreftut.html 。

Answer 4

警告告诉你$_[0]->[0] 没有任何内容 。 它并没有死，并告诉你你没有索引，所以$_[0]可能是一个arrayref，但没有任何东西在第一个插槽 - 或者它可能指向一个空数组。

• 如果它是一个空字符串或0，它不会抱怨。
• 如果有任何参考，你可以打印一些东西，即使只有： BLAH(0x80af74) 。 （其中“BLAH”是“ARRAY”，“HASH”，“SCALAR”，“REF”，“GLOB”，“IO”之一，......）

我的建议是你这样做：

use Data::Dumper;
say Data::Dumper->Dump( [ $_[0] ] ); # or even say Data::Dumper->Dump( [ \@_ ] )

然后查看输出。

一旦你在$_[0]->[0]得到一个hashref，那么如果你必须循环遍历哈希，最好的方法是：

while ( my ( $key, $value ) = each %$hashref ) { 
   do_stuff_with_key_and_value( $key, $value );
}

看到each

最后，似乎你有一些印记混乱。 请参阅此链接的最后一部分，以获得一个体面的尝试来解释sigils（ '$' ， '@' ， '%' ） 不是变量名称的一部分，而是我们想要从中检索的指标。 Perl编译困境