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/ );

Answer 2

我認為您想要quotemeta ：

$next = "trna(tgc)";
$search = quotemeta($next);
if ($data[$i][2]=~/$search/){ 
    //..
}