Re: [問題] 請問使用檔案比對時?

[imce (蜥蜴)]

太久沒寫了,寫玩好想睡=.=
============================================================
open(FILE,"a.txt");@A=<FILE>;close(FILE);#a是五行的檔案
open(FILE,"b.txt");@B=<FILE>;close(FILE);#b是三行那個

foreach $line (@B)
{
chomp($line);
$_ =~ s/$line/<NP>/g for (@array = grep(/$line/,@A) );
print @array;
}
=============================================================
結果我還是用了兩個for迴圈,應該是可以少用一個的,等我問問周公在來改

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.120.15.18
→ Yaowei:先感謝大家　小弟好好研究一下^^