Perl正则表达式括号匹配

Question

我有一个变量$next，其中包含可能包含括号的字符串，例如，trna(tgc)我想做出此匹配的语句if ($data[$i][2]=~/$next/){ ..}，即使实际上是真的，它也总是返回false。我试过了if ($data[$i][2]=~/trnA\(tgc\)/){ ..}，它起作用了。我的问题是：如何将每个括号前面的'\'插入变量$next？

Answer 1

您需要引用元字符。

尝试这个。

print "match" if( $var1 =~ /\Q$var2\E/ );