作者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)
推 HXZ:我照你寫的的確得到3啊... 05/06 00:08
推 chhuang:有考慮檔案最後的空白列嗎? 05/06 00:13
推 imce:我跑也是3,看來空白列要例外處理 05/06 00:14
推 abliou:用空白好像真的會有問題..但是為什麼會造成這樣的問題?? 05/06 02:34
推 HXZ:因為空白和空白一樣啊 05/06 22:09