A simple way to work around each would be to load it into an array and simulate each as follows:
$ perl -e ' > my %h=(qw(a b c d e f)); > { my @each = %h; > while (my $k = shift @each) { > my $v = shift @each; > print "$k => $v\n"; > }}' c => d e => f a => b
One world, one people
In reply to Re: Peek a hash without breaking iterator
by anonymized user 468275
in thread Peek a hash without breaking iterator
by hurricup
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |