map grep - #120871 (Allgemeines zu Perl)

neniro

2009-04-24 21:48

User since
2008-12-14
79 Artikel
BenutzerIn
[default_avatar]

ungetestet:

Code (perl): (dl )

1
2
3

my %hash2 = map { $_, $hash1{$_} }
            grep { /foo/ }
            keys %hash1;

-- yet another amateur perl hacker