regex - perl正規表現の括弧のマッチング

Question

$next括弧を含む可能性のある文字列を含む変数があります。たとえばtrna(tgc)、この一致するステートメントを作成したいif ($data[$i][2]=~/$next/){ ..}のですが、実際にはtrueであっても常に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/){ 
    //..
}