Hallo all,
maybe this is not exactly a beginner question, but I could not find an
appropriate mailing list (all other lists seem to be developer realted).
Basically, I want to do the same as
$data =~ s/^foo (whatever) bar$/bar $1 baz/mg;
but with a different interface (because it has to be embedded into a bigger
project), So I have come with this;
sub substitute_lines {
my ($contents, $regex, $subst) = @_;
$contents =~ s/$regex/$subst/mg;
return $contents;
}
}
&substitute_lines ($data, qr/^foo (whatever) bar$/mg, 'bar $1 baz');
Which (mostly) works as expected. Unfortunately, this won't interpolate the
matched group $1.
Experiments which also do not work:
&substitute_lines ($data, qr/^foo (whatever) bar$/mg, "bar $1 baz");
# obviously, $1 is interpolated _before_ re-match is done
&substitute_lines ($data, qr/^foo (whatever) bar$/mge, '"bar $1 baz"');
# /e modifier not accepted
Any hints?
--
Josef Wolf
j...@raven.inka.de
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
