regex - perl 正则表达式括号匹配

Question

我有一个变量 $next 包含可能包含括号的字符串，例如 trna(tgc) 我想制作这个匹配语句 if ($data[ $i][2]=~/$next/){ ..} 并且它总是返回假，即使它在现实中是真的。我试过这个 if ($data[$i][2]=~/trnA\(tgc\)/){ ..} 并且它有效。 我的问题是:如何将每个括号前面的'\'插入变量$next？

Answer 1

您需要引用元字符。

试试这个。

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