nicht angemeldet
Hallo Philipp,
Die Schleife ist gut, nur das die gleichen Zeilenpaare mehrmals(>10 mal) im FHout auftauchen.
PS: Die Zeilen sind im FHin einmalig!! nur die Msg kann gleich sein!
Wie löse ich jetzt das Problem?
_____________________________________________________
for ( my $i=0; $i < @Msg; $i++ ) {
for ( my $j=0; $j < @Msg; $j++ ) {
next if ( $i == $j ); # sonst wird jeder Eintrag ausgegeben, da jeder mit sich
# selber verglichen true ist.
if ($Msg[$i] eq $Msg[$j]) {
print FHout $Zeile[$i]; # Brauche Zeile, da sie mehr Infos enthält, Msg dient nur zum Vergleich!
print FHout $Zeile[$j]."\n"; # Mit 2xprint bilde ich Paare, die Verglichen werden!
}
}
}
-------------------------------------------------------
Danke, Gruß Sergej