Halihallo Sergej
Cool du bist auch hier, ich dachte alle sind auf Fashing.
Da ich nicht 'alle' bin, darf ich arbeiten :-)
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
Das 'abs' brauchst du nicht.
if (grep( $_ eq $Msg[$j], @array ) > 0) { next; }
wäre richtig.
Und du meinst ich solls mit
if (grep($element,@array) > 0) {
push( @vorhanden, $element );
}
s. oben. grep prüft die EXPR auf "Wahr". Wenn $element definiert ist und nicht gleich
0 oder "", ist die Bedingung _immer_ wahr. Du musst schon mit $_ vergleichen, $_ ist
das aktuelle Element von @array.
Einfach sagen, was nicht funktioniert; hab mir alles nicht sehr genau angesehen.
Viele Grüsse
Philipp