Opened by Gast at 2005-02-20 21:50
Ohne regulären Ausdruck mit beliebiger Anzahl Wörtern mit UND Verknüpfung:
\n\n
<!--EDIT|phaylon|1108999890-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use warnings;
use strict;
my @searched = qw( die ist );
line:
while ( my $l = <DATA> ) {
for( @searched )
{ next line unless index($l, $_) + 1 }
print $l;
}
# Das hier gehört nach _ _ DATA _ _, das Forum killt das aber.
Das ist die erste Zeile.
Dies ist die zweite Zeile.
Hier kommt Nummer drei.
<!--EDIT|phaylon|1108999890-->