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

[Sergej]

Hallo Phil,

Cool du bist auch hier, ich dachte alle sind auf Fashing.
Das ist ein Teilproblem von gestern ;-)

Mit dem couter kam ich nicht zurecht :-(

Hier meine Superschleife mit Messages:
Hier wird jede Message nur einmal mit jeder verglichen(wg. j=i+1)
MsgTime ist nur eine sonderbedingung!
TimeAbstd ist eine constante.

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))) {
      next if ($Msg[$i] element @vorhanden); # <= ????????? so was ähnliches
     @vorhanden =  unshift(@vorhanden,$Msg[$j]);
     print FHout $zeile[$i];
   print FHout $zeile[$j]."\n";
   print "\n $i -- $j \n";
          }
      }
        }

Und du meinst ich solls mit
if (grep($element,@array) > 0) {
   push( @vorhanden, $element );
}
probieren?

Gruß Sergej