map grep - #120873 (Allgemeines zu Perl)

LanX-

2009-04-24 22:20

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

die Frage ist, obs wirklich besser und lesbarer wird!

ungetestet mit map

Code (perl): (dl )

1
2
3

%hash_2= map { /regex/ ? ( $_ , $hash_1{$_} ) 
                       : () 
           } keys %hash_1;

und eine Lösung mit Hashslices (noch ungetesteter ;-):

Code (perl): (dl )

1
2

my @keys = grep { /regex/ } keys %hash_1;
@hash_2{@keys} = @hash_1{@keys};

braucht mans öfter wäre die Definition einer Funktion hgrep() geschickter!

EDIT: wie z.B. hier gezeigt: http://www.perlmonks.org/index.pl/jacques?node_id=...

UPDATE: Syntaxfehler korrigiert, danke RPerl!
Last edited: 2009-04-25 17:12:08 +0200 (CEST)

me and my writeups