Inhalt von zwei Dateien vergleichen

[Struppi]

while (<DATEI_2>)
{
   my $zeile = $_;
   foreach (@suchen)
   {
      my $suche = $_;
      if ( index($zeile,$suche) >= 0 )
      {
         print "$suche gefunden in Zeile: $.\n";
      }
   }
}
[/code]

Hier noch zwei kleine Verbesserungen:

while (my $zeile = <DATEI_2>)  
{  
   foreach my $suche (@suchen)  
   {  
      if ( index($zeile,$suche) >= 0 )  
      {  
         print "$suche gefunden in Zeile: $.\n";  
      }  
   }  
}

Struppi.