Thread Umgekehrtes grep gesucht (7 answers)
Opened by TheUser at 2009-04-13 17:05

topeg
 2009-04-14 01:43
#120547 #120547
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
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