如何匹配问号？

Question

我正在尝试搜索并替换文件中的URL列表，如果搜索URL中有问号，我就会遇到问题。 下面的$file只是一个标记，但它通常是一个完整的文件。

my $search = 'http://shorturl.com/detail.cfm?color=blue';
my $replace = 'http://shorturl.com/detaila.aspx?color=red';
my $file = '<a href="http://shorturl.com/detail.cfm?color=blue" class="news">HI</a>';
$file =~ s/$search/$replace/gis;
print $file;

如果$search变量有? 在其中替换不起作用。 如果我从$search变量中取下?color=blue ，它会起作用。

有谁知道如何使上述替代工作？ 反斜杠，即\\? 没有帮助。 谢谢。

Answer 1

使用quotemeta作为正则表达式模式。

use warnings;
use strict;

my $search = quotemeta 'http://shorturl.com/detail.cfm?color=blue';
my $replace = 'http://shorturl.com/detaila.aspx?color=red';
my $file = '<a href="http://shorturl.com/detail.cfm?color=blue" class="news">HI</a>';
$file =~ s/$search/$replace/gis;
print $file;

__END__

<a href="http://shorturl.com/detaila.aspx?color=red" class="news">HI</a>

Answer 2

当字符串作为正则表达式进行插值时，字面上不匹配，而是解释为正则表达式。 这对于构建复杂的正则表达式非常有用，例如

my @animals = qw/ cat dog goldfish /;
my $animal_re = join "|", @animals;

say "The $thing is an animal" if $thing =~ /$animal_re/i;

在字符串$animal_re ， | 被视为正则表达式元字符。

其他元字符例如是. ，匹配任何非换行符，或? ，这使前一个原子可选。

如果要按字面意思匹配变量的内容，可以将其括在\\Q...\\E引号中：

s/\Q$search/$replace/gi

（ /s选项只是将.匹配从“匹配任何非换行符”改为“匹配任何字符”，因此在这里无关紧要。）

\\Q...\\E是quotemeta函数的语法糖，因此这个答案和工具的答案完全相同。

Answer 3

请注意，你想要逃避的不仅仅是? 。 的? 是你的例子中唯一一个弄乱你期待的东西，但是. 匹配可能是阴险的找到。

regex /foo.com/确实会匹配字符串foo.com ，但它也会匹配foo com和fooXcom以及foo!com ，因为. 匹配任何角色。 因此，/ /foo.com/应写为/foo\\.com/ 。