Slice Array

[Huju]

Hi,

ich möchte ein Element aus einem Array löschen, wenn eine gewisse Bedingung zutrifft.

Hier mal wie ich das realisiert habe.

  
my @browser = ("NS", "IE", "IE", "Opera","Safari");  
my $i=0;  
foreach (@browser)  
{  
        print "A $_ \n";  
        if ($_ eq "IE") {splice(@browser, $i, 1);} $i++;  
}  
foreach (@browser)  
{ print "N $_ \n";}  
  

Ausgabe:

A NS  
A IE  
A Opera  
A Safari  
N NS  
N IE  
N Opera  
N Safari  

Wie man sieht, klappt das rauslöschen mit slice, aber das nächste Element in der foreach-Schleife wird dann "ignoriert". Jemand ne Idee, wie man das richtig macht?