perl正则内置变量匹配

来源:互联网 发布:乐器演奏软件 编辑:程序博客网 时间:2024/06/05 14:35

arr="Olu|94785";
 $str="ORTHOMCL428(2 genes,2 taxa):  Olu|94871(Olu) Ota|35190(Ota)";
 if($str!~//Q$arr/E/(/)
 {
    print $arr,"/n";
 }

 

/Q /E可以消除变量中特殊的perl符号的作用