Regular expresssions - #153700 (Allgemeines zu Perl)

moritz

2011-11-01 08:58

User since
2007-05-11
923 Artikel
HausmeisterIn

Das übliche vorgehen für so etwas ist, den String Zeilenweise durchzulaufen, und nur die Zeilen weiterzuverwenden, die einen interessieren.

Z.B.

Code (perl): (dl )

1
2
3

while (<$file_handle>) {
    print unless /suchwort/;
}

Oder

Code (perl): (dl )

my $string = join "\n",
             grep !/suchwort/,
             split /\n/,
             $string;