Re: [問題] 請問使用檔案比對時?
太久沒寫了,寫玩好想睡=.=
============================================================
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
→
03/11 18:13, , 1F
03/11 18:13, 1F
討論串 (同標題文章)
完整討論串 (本文為第 4 之 6 篇):
1
1
Perl 近期熱門文章
PTT數位生活區 即時熱門文章