http://www.perlmonks.org?node_id=777860


in reply to grep for hash?

Just with map:

use strict; use warnings; use Data::Dumper; my $orig = { 'foo' => 2, 'bar' => 4, 'boo' => 1, 'zar' => 5 }; my $dest; map { /oo/ and $dest->{$_} = $orig->{$_} } keys %$orig; print Dumper $dest; __END__ Output: $VAR1 = { 'boo' => 1, 'foo' => 2 };


hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb