[linux] Regex vinden

[Hugo van der Kooij]

Hoi,

Ik heb even zitten spelen met een simpel perl script om te kijken of een
text file matches heeft in een file met een heleboel reguliere expressies

Maar wat ik ook in de TEXT file heb staan. Geen matches op enige regel uit
STRINGS. Zelfs niet als ik regels zonder enige regex truuk kopieer uit
STRINGS en als test regel toevoeg aan

Dat dacht ik als volgt te doen:

open(STRINGS,"<$strings");
open(TEXT,"<$text");

while ($line = <TEXT>) {
        chomp($line);
        $match = 0;
        while ($pattern = <STRINGS>) {
                chomp($pattern);
                $pattern_check = "/" . $pattern . "/";
                if ($line =~ $pattern_check) {
                        print "Match found!\n\t$line\n\tMATCHES:
$pattern\n";
                        $match = 1;
                }
        }
        if ($match < 1) {
                print "\t$line\n";
        }
}
close(STRINGS);
close(TEXT);

--