grep

[Struppi]

ich würde es so lösen:

for ( my $i = 0; $i < @sockets; $i++)
{
    if ( $socket eq $sockets[$i] )
    {
        undef $sockets[$i];
    }
}

  
Naja, das ist kein Perl Style. Es ist zwar nicht falsch, aber Perl bietet wesentlich schönere Möglichkeiten Schleifen zu bauen.  
  
~~~perl
  
foreach my $s ( @sockets)  
{  
     undef $s if $socket == $s;  
}  

Aber auch grep und map sind sehr schöne und schnelle Möglichkeiten eine Liste zu durchlaufen

Struppi.