Hallo Phil and @ll,
Die Schleife bleibt bei der Ausgabe hängen, scheint als wäre sie in einer Endlosschleife. Wieso?
for (my $i=0; $i <=$z_nr; $i++ ) {
for (my $j=$i+1; $j <=$z_nr; $j++ ){
if (($Msg[$i] eq $Msg[$j]) and (abs(($MsgTime[$i] - $MsgTime[$j]) > TimeAbstd))) {
foreach (@vorhanden) {
if ($_ eq $Msg[$j]) {
$anfuegen = undef;
}
}
if ($anfuegen) {
push (@vorhanden, $Msg[$j]);
print FHout $zeile[$i];
print FHout $zeile[$j]."\n";
print "\n $i -- $j \n";
}
}
}
}
Gruß Sergej