Thread Umgekehrtes grep gesucht
(7 answers)
Opened by TheUser at 2009-04-13 17:05
So könnte man es mit einem regulären Ausdruck machen.
Code (perl): (dl
)
1 2 3 4 5 6 7 my @lista=qw(a b c d e); my @listb=qw(c p k a r p b); my $regexp='\Q'.join('\E|\Q',@lista).'\E'; my @result=grep{!/$regexp/}@listb; print "@result\n"; View full thread Umgekehrtes grep gesucht |