Re^3: how can i return the common keys from a hash

in reply to Re^2: how can i return the common keys from a hash
in thread how can i return the common keys from a hash

perl -MO=Deparse -wle 'my %a = ( 0 => 1, y => 2, z => 4); while (my $m
+ = each %a) { print $m }'

BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
my(%a) = (0, 1, 'y', 2, 'z', 4);
while (defined(my $m = each %a)) {
    print $m;
}
[download]

It checks for defined as the loop condition, not a true value.

Comment on Re^3: how can i return the common keys from a hash Download Code

Replies are listed 'Best First'.
Re^4: how can i return the common keys from a hash by ivancho (Hermit) on Aug 05, 2006 at 02:07 UTC
indeed, as that's what you want in 99% of the cases.. I was mostly pointing out that it's neither logical, nor obvious from docs	[reply]

In Section Seekers of Perl Wisdom