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符号的作用
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符号的作用