in reply to Re^5: What is happening ?
in thread problem using foreach and each with hash ref

Actually :) 
#!/usr/bin/perl --
use strict;
use warnings;

my %f = 1 .. 4;
for( ; my($k,$v) = each %f ; ){
   print qq!($k)=($v)\n!;
}
__END__
(1)=(2)
(3)=(4)

[download]
But B::Deparse reveals 
use warnings;
use strict 'refs';
my(%f) = 1..4;
while (my($k, $v) = each %f) {
    do {
        print "($k)=($v)\n"
    };
}
__DATA__

[download]
So I'm not sure :D

Replies are listed 'Best First'.
Re^7: What is happening ?
by grizzley (Chaplain) on Aug 19, 2009 at 10:31 UTC
    Ok, I give up, I will disprove the other half of my thesis by myself :) 
    %f=1..4;
while(($k)=keys%f)
{
  print qq!($k)=($f{$k})\n!;
  delete $f{$k}
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom