Re: Interpolating backreferences in an eval

sub expand {
    my ($rx, $from, $to) = @_;
    if ($from =~ /$rx/) {
        print (eval $to)."\n";
    }
}

#expand(qr/a(.)c/, 'abc', 'a$1$1c');
expand('a(.)c', 'abc', "a$1$1c");
[download]

Comment on Re: Interpolating backreferences in an eval Download Code

Replies are listed 'Best First'.
Re^2: Interpolating backreferences in an eval by ikegami (Patriarch) on Feb 11, 2009 at 17:28 UTC
For it to run, that should be `expand(qr/a(.)c/, 'abc', '"a$1$1c"');` [download] or `print (eval qq{"$to"})."\n"; expand(qr/a(.)c/, 'abc', 'a$1$1c');` [download] But oh so wrong.	[reply] [d/l] [select]