schneller Abgleich vieler Zeilen - #52164 (Allgemeines zu Perl)

anti

2005-02-28 11:59

User since
2003-11-29
155 Artikel
BenutzerIn
[default_avatar]

Hi Community,

ich habe ein mittelschweres Sortier / Abgleichproblem. Ich möchte 2 Arrays vergleichen: sind die Einträge in beiden Arrays vorhanden ist alles ok, wenn nicht, sollen sie ins zweite Array eingefügt werden. Mein bisheriger Ansatz sieht so aus:

Code (perl): (dl )

print "Schleife2 start";
    foreach (@temp) {
        my ( $qip3, $zip3, $qp3, $zp3, $qt3, $zt3, $qm3, $zm3 ) = split( / /, $_ );
        my $da   = "0";
        #my $temp = $_;
        foreach (@monthly_temp) {
            my ( $qip4, $zip4, $qp4, $zp4, $qt4, $zt4, $qm4, $zm4 ) = split( / /, $_ );
            if ($qip3 eq $qip4 && $zip3 eq $zip4 && $qp3 eq $qp4 && $zp3 eq $zp4 ){$da = "1";}
        }
        if ( $da eq "0" ) {
            chomp($_);
            push( @monthly_temp, "$_" );
        }
    }
    print " ende\n";

Genau hier liegt der Hund auch begraben. Werden die Arrays sehr groß (ca. 10000 Zeilen) dauert dieser Vergleich ziemlich lange und mein Ansatz ist quasi unbrauchbar! Gibt es eine Möglichkeit, diesen Abgleich schneller auszuführen?

Danke, anti\n\n