Re^5: What is happening ?

Replies are listed 'Best First'.
Re^6: What is happening ? by Anonymous Monk on Aug 19, 2009 at 08:56 UTC
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	[reply] [d/l] [select]
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]