的Perl子循環無法重置迭代INTERAL變量

Question

當進入在下一次從中跳下後子循環，子循環迭代應該從開始：

#!perl 

use 5.014; 

my %hash = ("a" => 1, "b" => 2 , "c" => 3); 
my $pos = 0; 
POS: 
while ($pos < 4) { 
    $pos++; 
    while (my ($key, $value) = each %hash) { 
     say "key: $key value: $value"; 
     next POS; 
    } 
} 

但結果如下：

$ perl bugs-loop.pl 
key: c value: 3 
key: a value: 1 
key: b value: 2 

如何得到以下結果：

key: c value: 3 
key: c value: 3 
key: c value: 3 

Answer 1

keys重置迭代器。重置HASH或ARRAY的內部迭代器（請參閱each）。特別是，在void context中調用keys將重置迭代器，而不會產生其他開銷。

#!perl 

use 5.014; 

my %hash = ("a" => 1, "b" => 2 , "c" => 3); 
my $pos = 0; 
POS: 
while ($pos < 4) { 
    $pos++; 
    while (my ($key, $value) = each %hash) { 
     say "key: $key value: $value"; 
     keys %hash; # Reset iterator since we're bailing out. 
     next POS; 
    } 
}