作者imce (蜥蜴)
看板perl
标题Re: [问题] 两笔档案比对
时间Sat May 6 00:10:23 2006
Code 1检查a.txt每一行如果b.txt有这行，flag++
--------------------------------------------------------
open(FILE,"a.txt");@A=<FILE>;close(FILE);
open(FILE,"b.txt");@B=<FILE>;close(FILE);
foreach $line (@A)
{
next if ($line eq "\n");
$flag ++ if ( grep(/$line/,@B) );
}
print $flag;
-------------------------------------------------------
Code 2 a.txt每一行将对应的hash++，检查b.txt每一行对应的
hash如果有值，则flag++
--------------------------------------------------------
open(FILE,"a.txt");@A=<FILE>;close(FILE);
open(FILE,"b.txt");@B=<FILE>;close(FILE);
($_ eq "\n")?1:$HASH{$_}++ foreach (@A);
($HASH{$_})?$flag++:1 foreach(@B);
print $flag;
-------------------------------------------------------
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.74.242.13
1F：→ imce:慢了一步，有错请指正谢谢 05/06 00:10
※ 编辑: imce 来自: 211.74.242.13 (05/06 00:16)
2F：→ abliou:感谢喔.. 05/06 02:36