Linuxer+2008-07-12 19:49:54--

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11

my $string    = "test test %ae, test %ue test, %oe";

my $find    = "%(ae|oe|ue)";
my $replace    = '#\1;';

# pq's Lorbeeren hinzugefuegt
$replace = quotemeta $replace;
$replace =~ s/\\\\(\d)/\$$1/g;

# meine Beerchen ;)
eval "\$string =~ s/$find/$replace/g;";

sorry ich verstehe hier nur Bahnhof, und RegExes interessieren mich brennend... :-)

bei obigem Code bekomme ich mit

%(ae|oe|ue)
\#$1\;
test test #ae;, test #ue; test, #oe;

???

verstehe ich die Fragestellung richtig?
Wie kann man Pattern und Replace als Strings eingeben und dann auswerten?

was sollen die \1 bedeuten? das ist doch eher sed syntax ?!?