Ermitteln ob ein Array-Element existiert, wenn nicht anhängen...

[Philipp Hasenfratz]

Halihallo Sergej

for (my $i=0; $i <=$z_nr; $i++ ) {
   for (my $j=$i+1; $j <=$z_nr; $j++ ){
      if (
           ($Msg[$i] eq $Msg[$j]) and
           (($MsgTime[$i] - $MsgTime[$j]) > TimeAbstd)
         ) {
         $anfuegen = 1;
         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";
         }
      }
   }
}

hier eine etwas lesbarere Struktur... $anfuegen muss schon auf 1 gesetzt werden!

Viele Grüsse

Philipp