在变量中存储的Perl正则表达式中使用捕获缓冲区

如果你想避免使用eval。。。

my $string = "This is my string";

$string = regex_replace($string,'is (my) string','$1');

print "$string\n";

sub regex_replace {
    my ( $string,$left,$right ) = @_;

    $string =~ /$left/g;
    $rv = $1;
    $right =~ s/\$1/$rv/;

    $string =~ s/$left/$right/gsm;

    return $string;
}

在 regex_replace ,你可以用

eval "\$string =~ s/$left/$right/gsm";

但是 eval STRING

在您的示例中,输出是

This my