nicht angemeldet
Hallo,
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
Als Ergebnis kommt bei mir ein leerer String. Leider kenne ich mich nicht so gut aus, dass ich einen möglichen Fehler finden könnte.
Gruß
Sonja
seth