Re^10: Interpolate into replacement with s//?

You mean like this? This doesn't seem to work either:

use 5.014000;
use Config::General;

my $conf = new Config::General({replace => 'Z\l$1Z'});

my $string = q/ABC/;
my $search = qr/^(A)/;
say $conf->{config}{replace};
my $replace = '"'. q/$conf->{config}{replace}/ .'"';
$string =~ s/$search/$replace/gee;
say $string;
[download]

I know your solution works when you directly give the replacement inline but not if the replacement itself is in a variable. Perhaps you could comment on how to do this in the above code?

Comment on Re^10: Interpolate into replacement with s//? Download Code

Replies are listed 'Best First'.
Re^11: Interpolate into replacement with s//? by ikegami (Patriarch) on Nov 24, 2011 at 08:01 UTC
Check what $replace contains...	[reply]
Re^11: Interpolate into replacement with s//? by Anonymous Monk on Nov 24, 2011 at 08:06 UTC
Tip for you `$string =~ s/$search/ warn "Lets see what we're evaling\n$replace\n\n\n"; eval $replace; /ge;` [download]	[reply] [d/l]
Re^12: Interpolate into replacement with s//? by philkime (Beadle) on Nov 24, 2011 at 12:22 UTC
Ah. I appear to have been rather stupid, trying to interpolate into single quotes, thanks for the help.	[reply]