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

[philkime]

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;

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?

[ikegami]

Check what $replace contains...

[Anonymous Monk]

Tip for you

$string =~ s/$search/
    warn "Lets see what we're evaling\n$replace\n\n\n";
    eval $replace;
/ge;

[philkime]

Ah. I appear to have been rather stupid, trying to interpolate into single quotes, thanks for the help.