Fritzek: Inhalt von zwei Dateien vergleichen

Beitrag lesen

gudn tach!

in der theorie weiß ich, wie ich dateien öffne und in ein array auslese.

in der praxis auch?
also z.b. so:

sub loadFile{
  my $infile=shift;
  open(INFILE, "<".$infile) || die " file not found\n";
    my @lines=<INFILE>;
  close(INFILE);
  return @lines;
}
my @file_content=loadFile('file.txt');


>   
> > irgendwie muss ich dann durch das große array durchloopen und in jeder zeile das kleine array loopen.  
>   
> ja, z.b. in etwa so  
> schleife ueber alle zeilen der zu durchsuchenden datei  
>   schleiche ueber alle strings (nadeln), nach denen gesucht werden soll  
>     suche nadel im zeile  
>     falls gefunden: zeilennummernausgabe  
>   schleifenende  
> schleifenende  
>   
> suchen kannst du mit regulaeren ausdruecken (perldoc perlre).  
>   
> so und jetzt faehrt gleich mein bus...  
>   
> prost  
> seth  
  
Danke, seth.  
so hatte ich mir das mit dem einlesen gedacht:  
~~~perl
  
my $i = 0;  
my $j = 0;  
open(DATEI_1, "datei_1") || die "Datei nicht gefunden";  
my @Zeilen_1 = <DATEI_1>;  
close(DATEI_1);  
open(DATEI_2, "datei_2") || die "Datei nicht gefunden";  
my @Zeilen_2 = <DATEI_2>;  
close(DATEI_2);  
foreach $inhalt_1 (@Zeilen_1) {  
   ++$i;  
   foreach $inhalt_2 (@Zeilen_2) {  
      ++$j;  
      if ( $inhalt_1[$i] =~ /$inhalt_2[$j]/ ) {  
         print $i;  
      }  
   }  
}  

ich muss nicht mal nach RegExp suchen; sind ganze wörter. einzig die nummer der aktuellen zeile muss ich ausgeben. ich versuch das ganze als perl -e test.pl laufen zu lassen und es kommt nichts.
Danke, Fritzek