使用变量的perl正则表达式[重复]

Question

这是一个代码sn-p：

$regex_match = "(.*).txt";
$replacement = "\$1.pdf";
my $new_replacement = ""; #???
my $new_regex_match = quotemeta ($regex_match); #???
$from = "test.txt";
(my $to = $from) =~ s{$regex_match}{$replacement}g;
print "From " . $from . " To " . $to  . "\n";

输出： 从 test.txt 到 $1.pdf

我相信 $1 没有被插值。需要改变什么？ new_replacement 和/或 new_regex_match 是什么？

Answer 1

您需要s///ee 来强制评估。

my $regex_match = '(.*)\.txt';
my $replacement = '$1.".pdf"';

while (<>) {
    s/$regex_match/$replacement/ee;
    print;
}