Re: [問題] 兩筆檔案比對
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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
