Perl 正则表达式与变量不匹配相同的文本

Question

有人可以向我解释为什么以下打印“失败”吗？解决方法是什么？

my $test1 = "/k?user";
my $test2 = "/k?user";
if ($test1 =~ m/$test2/) {
    print "match";
}
else {
    print "fail";
}

如果我将 $test1 和 $test1 更改为 "/k?"，则匹配有效。

显然它与 ? 后面的文本有关。但是，我试图匹配的变量中有问号，我宁愿不必把所有东西拆开，匹配各个部分，然后重建所有东西。

Answer 1

? 是正则表达式中的特殊字符。使用 quotemeta：

my $test1 = "/k?user";
my $test2 = quotemeta "/k?user";
if ($test1 =~ m/$test2/) {
    print "match";
}
else {
    print "fail";
}

Answer 2

要（仅）匹配

/k?user

需要使用该模式，

^/k\?user\z

因为“?”在正则表达式模式中与自身不匹配。您需要对其进行转义（使用“\?”）以使其匹配“?”，并转义特殊字符（例如“?") 可以使用 quotemeta 来完成。

my $str = '/k?user';
my $pat = quotemeta($str);
/^$pat\z/

quotemeta 也可以通过双引号字符串文字和正则表达式模式文字中的 \Q..\E 进行访问。

my $str = '/k?user';
/^\Q$str\E\z/

（toolic 之前建议的解决方案也将匹配“!/k?userf”。）