Perl正則表達式與變量不匹配相同的文字

Question

有人可以向我解釋這裏發生了什麼？解決方法是什麼？

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

打印 「失敗」 每次我。如果我改變$test1和$test1到"/k?"比賽作品

顯然它是與文本繼？但我試圖匹配的變量在它們中有問號，我寧願不必拆開所有的東西，匹配這些部分，然後重新構造所有東西。

任何想法???

Answer 1

?是special character in a regex。使用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」。）