Perl:替换包含问号的字符串

Question

这是我的代码:

$html = 'Is this a question? Maybe.';
$old = 'question?';
$new = 'reply?';

$html =~ s/$old/$new/g;
print $html; exit;

输出是:

Is this a reply?? Maybe.

期望的输出:

Is this a reply? Maybe.

我究竟做错了什么？谢谢.

Answer 1

使用quotemeta来逃避?:

$html = 'Is this a question? Maybe.';
$old = quotemeta 'question?';
$new = 'reply?';

$html =~ s/$old/$new/g;
print $html; exit;

Answer 2

在正则表达式中,问号是一个运算符,表示一个或没有.因此,我们必须逃脱它:

s/question\?/reply?/g

请注意,它在字符串中并不特殊.因为将随机字符串插入到正则表达式中可能会产生不必要的影响,所以首先应该使用quotemeta它们.

• 通过使用quotemeta功能:$old = quotemeta "question?"

• 或者通过使用\Q...\E正则表达式中的区域:

  s/\Q$old\E/$new/g