my @array = qw/ foo bar baz quux /; my %hash = qw/ f1 baz f2 foo /; my @newarray; for my $k (keys %hash) { push @newarray, $k if grep { $hash{$k} eq $_ } @array; } print "newarray - @newarray\n"; __output__ newarray - f1 f2
_________
broquaint
In reply to Re: Re: Re: hashes - finding values
by broquaint
in thread hashes - finding values
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |