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循環評估其表達式一次。另一方面，每一次通過一次就評估其表達。這意味着你不斷創建一個新的散列並抓住它的第一個元素。

你可以做到以下幾點：

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