Inhalt von zwei Dateien vergleichen

[Struppi]

ja, aber wie ich eben schrieb arbeitet er, aber das index irgendwie nicht (prints zum debuggen haben meldungen gebracht).

Funktionier das:

#!/usr/bin/perl -w  
  
use strict;  
my @suchen = qw(Datei Text die);  
while( my $zeile =  <DATA>)  
{  
    foreach my $suche (@suchen)  
    {  
         if ( index($zeile,$suche) > -1 )  
         {  
            print "$suche($.)\n";  
         }  
    }  
}  
  
__DATA__  
Ein kleiner Text anstatt einer Datei  
zum probieren der suche nach mehreren  
Begriffen in einer Datei die ganz viele Zeilen hat  
Ich bin gespannt ob die suche auch funktioniert

Struppi.