[linux] Re: Regex vinden

[Wybo Dekker]

Hugo van der Kooij wrote:
> 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 . "/";

hier gaat het mis; gooi deze laatste regel weg en vervang de volgende 
regel door:
if ($line =~ /$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);
> 

-- 
Wybo