作者abliou (Art of Life)
看板perl
标题[问题] 两笔档案比对
时间Fri May 5 22:46:59 2006
现在手边有两个档案
一个是
aaaa
bbbb
ccccc
dddd
eeeee
另一个是
aaaa
bbbb
dddd
ffffff
现在我想统计出档案一里每一行在档案二中出现的次数总合...
比如说这一个比对的结果就是3(因为有出现aaaa,bbbb跟dddd)
可是我不管怎麽写都无法产生这样的结果....
程式码:
open(file1,"<./ok1/NNcontact1.txt");
while($line1=<file1>){
open(file2,"<./ok2/NNcontact1.txt");
while($line2=<file2>){
if ($line1=~/$line2/){
$flag++;
}
}
close file2 ;
}
print $flag ;
$flag = 0;
※ 编辑: abliou 来自: 140.124.50.103 (05/05 22:52)
1F：推 HXZ:我照你写的的确得到3啊... 05/06 00:08
2F：推 chhuang:有考虑档案最後的空白列吗？ 05/06 00:13
3F：推 imce:我跑也是3，看来空白列要例外处理 05/06 00:14
4F：推 abliou:用空白好像真的会有问题..但是为什麽会造成这样的问题?? 05/06 02:34
5F：推 HXZ:因为空白和空白一样啊 05/06 22:09