regex - perl regex parenthesis matching

Question

I have a variable $next which contains strings that might contain parenthesis e.g trna(tgc) I want to make this matching statement if ($data[$i][2]=~/$next/){ ..} and it always return false even if it's true in reality. I tried this if ($data[$i][2]=~/trnA\(tgc\)/){ ..}and it works. my question is : how to insert the '\' in front of each parenthesis into the variable $next?

Answer 1

您需要引用元字符。

尝试这个。

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

Answer 2

我想你想要quotemeta：

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