regex - 在搜索中插入引号并替换正则表达式变量

Question

我在 Perl 中有以下字符串。

$string = "The date is SOMEDATE today";

我想用字符串 '2013-05-30' （包括单引号）替换 SOMEDATE。所以我对 $string 的预期最终值为

$string = "The date is '2013-05-30' today";

问题是日期 2013-05-30 是我放入变量的日期。

$date = "\'2013-05-30\'";

所以如果我这样做

$string =~ s/SOMEDATE/$date/g;

我最终得到

 The date is 2013-05-30 today

注意，单引号不见了。我如何获得单引号？提前致谢。

Answer 1

不知何故，你并没有真正告诉我们你做了什么。这应该有效：

$ cat x.pl
#!/usr/bin/env perl

$string = "The date is SOMEDATE today";
$date = "'2013-05-30'";
$string =~ s/SOMEDATE/$date/g;
print "$string\n";

$ ./x.pl
The date is '2013-05-30' today