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; 
    ... 
} 

Но так же, как ваш второй фрагментом является излишне расточительным и сложным вариантом первого фрагмента, то выше, является неоправданно расточителен и сложным вариантом из следующих:

use List::Util 1.29 qw(pairs); 

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