RA hat es einen? ersetzen

[Frédéric]

Hi,

Ich habe eine kleine Frage zu den RA in Perl.

Ich habe ein Array, und möchte schauen, ob Elemente des Arrays ein Ausdruck enthält (z.B. "rot"). Dann soll es ersetzen (z.B. durch "grün"). Kann man diese beide Schritten in nur einen verkürzen? So muss der Skript nicht zweimal die Zeichenkette durchsuchen.

Ein Beispiel:

@array=("Meine Lieblingsfarbe ist grün","Er hat eine rote Nase","Der Tisch ist rot");

for (@array) {
 if ($_ =~ /rot/) {
  $_=~ s/rot/grün/gi;
  push(@list,$_);
 }
}

Hier durchsucht er das Array zweimal nach rot. Ich will es in einem SChritt machen. Geht das?