Nein, das war nur ein Beispiel.
OK, dann suchst du grep:
@browser = grep $_ ne 'IE', @browser;
Ich komm glaub um eine Schleife nicht drum rum,
Das glaube ich nicht.
da meine Abfrage nicht ganz so simple wie das Beispiel ...
Das spielt keine Rolle, du kannst auch einen Block als Ausdruck verwenden.
my $ping = Net::Ping->new("icmp");
foreach my $switch (@SWITCHES)
{
if (!$ping->ping($switch,3))
{
print "Switch $switch not reachable.\n";
# >>> Hier möchte ich nun $switch aus dem array @SWITCHES entfernen
}
}
Warum machst du es nicht umgekehrt? Alle erfolgreichen Abfragen, in ein neues Array eintragen. Da diese vorgehensweise nicht geht, wie andreas schon erläutert hat.
Struppi.