Perl：是否可以遍历匿名哈希？

Question

遍历列表很容易：

foreach my $elem ( 1, 2, 3, 4, 5 ) {
  say $elem;
}

或匿名数组：

foreach my $elem (@{[ 1, 2, 3, 4, 5 ]}) {
  say $elem;
}

但是是否可以对匿名哈希执行相同的操作？我试过了：

while (my ($key, $value) = each (%{{ a => 1, b => 2, c => 3 }})) {
  say "$key=$value";
}

但我得到一个无限循环。

Answer 1

foreach 循环对其表达式求值一次。另一方面，while 每次通过时都会评估其表达式。这意味着您正在反复创建一个新的哈希并获取它的第一个元素。

您可以执行以下操作：

use List::Util 1.29 qw( pairs );

for my $pair ( pairs %{ { a => 1, b => 2, c => 3 } } ) {
   my ( $key, $val ) = @$pair;
   ...
}

但是就像您的第二个 sn-p 是您的第一个 sn-p 的不必要浪费和复杂的版本一样，上面是以下内容的不必要的浪费和复杂版本：

use List::Util 1.29 qw( pairs );

for my $pair ( pairs a => 1, b => 2, c => 3 ) {
   my ( $key, $val ) = @$pair;
   ...
}