Reguläre Ausdrücke

[Daniel Thoma]

Hallo sonja,

In Perl könnte man sowas z.B. so schreiben:

my $test = "text bla text text blub text text";
my $replace = {bla => "1", blub => "2"};
my $pat = join("|", keys %{$replace});
my $test =~ s/($pat)/$replace->{$1}/ge;
print $test, "\n"

Ausgabe sollte sein:
text 1 text text 2 text text

Grüße

Daniel