Reguläre Ausdrücke

[Daniel Thoma]

Hallo sonja,

So sollte es funktionieren:

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

Ich hatte $test in der vorletzten Zeile aus Versehen nochmals deklariert.

Grüße

Daniel