regexp in function chain/pipe: geht '$var =~ s/1/2/;' auch angenehmer? - #51583 (Allgemeines zu Perl)

samsara

2003-09-13 02:07

User since
2003-09-13
2 Artikel
BenutzerIn
[default_avatar]

Hallo!

Bin der Neue :)

Ich schreibe gerne Code nach dem Schema (nur um ein bloedes Beispiel zu geben):

Code: (dl )

print (reverse sort (split (/:/, $scalar));

Nur macht mir die Perl-Weise des Ersetzens da einen dicken Strich durch die Rechnung, da brauche ich immer mehrere Zeilen:

Code: (dl )

1
2

$scalar =~ s/ich will weg|ich auch//;
print (reverse sort (split (/:/, $scalar));

Also schrieb ich eine subroutine:

Code: (dl )

sub substitute {
my $string = $_[0]; # geht nur so bei mir
$string =~ s/$_[1]/$_[2]/;
return ($string);
}

Das ganze habe ich auch erweitert, um mehrere reg-exps und Ersetzungen zu uebergeben. (habe meine source nicht hier) Jetzt kann ich schoen:

Code: (dl )

print (reverse sort (split (/:/, (&substitute ($scalar, "ich will weg|ich auch", ""))));

Geht das auch direkt mit den von Perl vorgegebenen Funktionen?

Danke,

Samsara\n\n