Re^5: What is happening ?

[grizzley]

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

No.each works with while, and for works with keys. Corrections: Re^6: What is happening ? and Re^7: What is happening ?

[Anonymous Monk]

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)

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__

So I'm not sure :D

[grizzley]

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