Question

帮忙看一下这个perl的小程序哪错了吗

#!/usr/bin/perl -w
open(M,"matched.txt");
open(A,">the answer.txt")||die "$!";
$matched=<M>;
chop($matched);
while($matched ne "")
{
open(C,"cgi-geneinformation.txt")||die "$!";
$cgi=<C>;
while($cgi)
{
if ($cgi =~ /$matched/)
{
print A ("$matched\n");
$matched=<M>;
chop($matched);close (C);
last;
}
else{
$cgi=<C>;

}

}

}
close (M);
close (A);

Answer 1

while 里面错了 ；while（$match = <M>）才能读取文件的每一行 ，你这只读了第一行

Answer 2

希望你说的更详细一些，比如你这pl目的是什么，文件格式，报错提示，请试试将
open(C,"cgi-geneinformation.txt")||die "$!";
放到while前面，你放在while里面，后面的else使用不会出现作用域的问题么，个人看法~希望对你有用

追问

这个perl的目的是选取两个文件里面相同的数据的，像你说的把open(C,"cgi-geneinformation.txt")||die "$!";放到while前面，的话，在一次匹配结束后，cgi-geneinformation.txt就不是从第一行开始读取数据了

我改了我的程序，

运行报错如图：

追答

麻烦你把pl里面出差的行标示出来，报错是说你有一个值没初始化，但我现在不知道是哪行出问题啊亲。。。
还有这里看一下，print A ("$matched\n");你是想输出到A对应的路径吧，但是你前面用的是
open(A,">the answer.txt")||die "$!";这是说符合条件就刷新A，（取代）
open(A,">>the answer.txt")||die "$!";这是说符合条件就续写A，（对应文件的末尾继续写下去）
看看你是想取代，还是继续续写？你说想找出所有相同应该是续写吧~