each is an iterator. Foreach loops works on list. You're asking if it's possible to cut a piece of wood with a screwdriver.
A foreach loop (whether using the for or foreach keyword) calls the list building expression once, and iterates over the resulting list.
A C-style for loop (whether using the for or foreach keyword) could, since it's really a while loop with bells and whistles.
Since you can probably cut a piece of wood with a screwdriver if you tried hard enough,
for my $pair (
sub {
my @pairs;
while (my ($k,$v) = each %h) { push @pairs, [$k,$v] }
@pairs
}->()
) {
my ($k,$v) = @$pair;
...
}
But using the appropriate tool is better.
while (my ($k,$v) = each %h) {
...
}
or
for my $k (keys %h) {
my $v = $h{$k};
...
}
|