Anfänger-Problem: Trailing \ in Regex - #105601 (Allgemeines zu Perl)

moritz

2008-02-05 20:57

User since
2007-05-11
923 Artikel
HausmeisterIn

s/\Q$_\E/$revHash{$_}/g;

Oder

Code (perl): (dl )

1
2

my $re = join '|', map { quotemeta $_ } keys %revHash;
$_[1] =~ s/($re)/$revHash{$1}/g;