変数が同じテキストに一致しない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です。

/k?user 

1は "?は" 正規表現パターン自体に一致しないため、パターン

^/k\?user\z 

を使用する必要がある（のみ）と一致するように

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

Answer 2

：quotemetaを使用してください。 "?"と一致するようにエスケープする必要があります（ "\?"）。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」と一致します。）