Opened by tsy at 2008-05-23 15:35
Es geht sehr viel eleganter mit grep:
Code: (dl
)
1
2
my @list = qw/foo bar buz qiz 1 2 3 one two three/;
my @filtered = grep /^\w+$/, @list;