作者cutecpu (可爱中央处理器)
看板perl
标题Re: [问题] 两笔档案比对
时间Sat May 6 00:08:59 2006
open F1,"<./ok1/NNcontact1.txt";
$hash{$line}++ while(chomp($line=<F1>));
close F1;
open F2,"<./ok2/NNcontact1.txt";
$cnt+=$hash{$line}?1:0 while(chomp($line=<F2>));
close F2;
print "$cnt\n";
※ 引述《abliou (Art of Life)》之铭言：
: 现在手边有两个档案
: 一个是
: 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)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.63.246.28