Question

求助：perl 正则表达式匹配变量不成功？

写了一段代码，
if ($a=~m/$b/)
{ ....... }
这种匹配为什么不对？尤其是$b这个地方？ 在这里$a和￥b都是变量。
open (SMRNA,"mature.fa");
@miRNA=<SMRNA>;
close (SMRAN);
open (WUZHONG,"Metazoa.txt");
@wuzhong=<WUZHONG>;
close (WUZHONG);
for ($j==0;$j<=@wuzhong;$j++)
{
$b=@wuzhong[$j];
for ($i==0;$i<=@miRNA;$i++)
{
$a=@miRNA[$i];
if ($a=~m/\Q$b\E/)
{
open (CUN,">>result.txt");
print CUN @miRNA[$i];
print CUN @miRNA[$i+1];
close CUN;
}
}
}

Answer 1

$a = "abc";
$b = "b";
if ($a=~m/$b/)
{
	print $a;
}

上述代码运行无误，怀疑楼主的$a里是不是没有引号？请楼主贴出完整代码，或者至少贴出$a和$b的内容。

追问

请看看我的全部的代码，我的$a和$b都是从列表里遍历出来的。

追答

因为没有你的文件，所以也没办法知道$a,$b是什么内容，你可以将它们的内容贴一下吗？在匹配之前输出一下$a,$b分别是什么内容

Answer 2

查看$a , $b 有没有chomp