Inhalt von zwei Dateien vergleichen

[Fritzek]

Hallo Siechfred
danke, das war der entscheidende hinweis. jetzt sieht das programm wie folgt aus und funktioniert in jeder umgebung:

  
#!/usr/bin/perl -w  
use strict;  
open(DATEI_1, "dat1.txt") || die "Datei nicht geoeffnet, weil: $!";  
my @suchen = <DATEI_1>;  
chomp(@suchen);  
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) > -1 )  
      {  
         print "$suche gefunden in Zeile: $.\n";  
      }  
   }  
}  

Dank an alle für ihre Hilfe.