Inhalt von zwei Dateien vergleichen

[Siechfred]

Tag Struppi.

Da RegExp ja nachgesagt wird, dass sie Performancekiller seien, wäre es mal interessant zu erfahren, ob ein Hash-Slice nicht eventuelle Performancegewinne bringen würde:

open(DATEI_1, "datei_1") || die "Kann Datei nicht öffnen, weil: $!";

my @suchen = <DATEI_1>;
close(DATEI_1);

  
~~~perl
my %gesucht;  
@gesucht{@suchen} = ();  
  
open(DATEI_2, "datei_2") || die "Kann Datei nicht öffnen, weil: $!";  
while (<DATEI_2>) {  
  chomp($_};  
  if( exists $gesucht{$_} ) {  
    print "$_ gefunden in Zeile: $.\n";  
  }  
}

Nur mal so in den Raum gestellt ...

Siechfred