Inhalt von zwei Dateien vergleichen

[Fritzek]

Hallo Struppi, hallo Siechfred
danke an euch und seth
so hab ich es hinbekommen:

  
#!/usr/bin/perl -w  
use strict;  
open(DATEI_1, "dat1.txt") || die "Datei nicht geoeffnet, weil: $!";  
my @suchen = <DATEI_1>;  
close(DATEI_1);  
open(DATEI_2, "dat2.txt") || die "Datei nicht geoeffnet, weil: $!";  
while (<DATEI_2>)  
{  
   my $zeile = $_;  
   foreach (@suchen)  
   {  
      my $suche = $_;  
      if ( index($zeile,$suche) >= 0 )  
      {  
         print "$suche gefunden in Zeile: $.\n";  
      }  
   }  
}  

und das ging in der Tat mit index schneller (dat1 und dat2 hatten jeweils ungefähr 3000 Zeilen; dat1 wie gesagt nur ein wort und dat2 bestand die zeile aus zeichen zwischen 256 und 384 bytes). wobei "schneller" sich im sekundenbereich bewegt.