Teil-Hash mit Grep auf Keys? - #115719 (Perl-Community.de)

2008-10-23 15:10

User since
2003-08-04
12208 Artikel
Admin1

wenns derselbe hash sein darf:

Code (perl): (dl )

delete @hash{ grep !m/a/, keys %hash };

wenn nicht:

Code (perl): (dl )

my %hash2 = map { m/a/ ? ($_, $hash{$_}) : () } keys %hash;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem