2 Dateien vergleichen aber.... - #169566 (Allgemeines zu Perl)

FDX

2013-08-14 23:04

User since
2013-04-16
9 Artikel
BenutzerIn
[default_avatar]

Als ich es geändert habe, hatte ich unter Notifications (benutze Kommode Edit) die Fehlermeldung gesehen.

Mein Deutsch ist nicht so gut versuche es aber mal zu übermitteln was ich meine :-)

Ich glaube ich habe ES gefunden. Wir haben ja die ganze Datei in den Hash eingelesen. Es sind in der Datei auch gleiche Wörter mit verschiedenen Attributen an erster Stelle. Also hat das Programm, wenn es ein Wort das zweite, dritte oder n mal gefunden hat immer das erste Attribut vom ersten Wort genommen.

Also habe ich hinter key ein lineCount hinzugefügt.

Code (perl): (dl )

$lineCount = 1;

while (my $line1 = <$fhone>) {
  
  chomp $line1;
    my ($key,@attributes1) = split (/\s+|\t/,$line1); 
    my $attrib_ref2 = $hash{$key.$lineCount};  # Hash um Attribute die in File2 vorkamen aus der Attribut-Liste in File1 rauszufiltern
    my %filter_attrib = map {$_ => 1}@$attrib_ref2;  # Zeile mit Key, Attribute aus File2, gefilterte Attribute aus File1 ausgeben
    $lineCount++;
    print $fhout join(' ', $key, @$attrib_ref2, grep {!$filter_attrib{$_}} @attributes1)."\n";     
}

habe zwar nicht %100 kontrolliert, aber die hälfte der Ausgabe scheint korrekte Ergebnisse zu liefern. Sobald alles kontrolliert ist gebe ich nochmal Bescheid. :-)
Ich danke euch vielmals. Ihr seid die Besten. So ein nettes Forum.......1A