in reply to another elegance contest
my $x = qr(klops); my @a = qw(apfel klops klops börne joghurt klops nüß) my @e; @a = grep { $_ !~ $x or not push @e, $_ } @a;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: another elegance contest
by tos (Deacon) on Nov 16, 2005 at 15:42 UTC |
In Section
Seekers of Perl Wisdom