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

看板Perl作者 (蜥蜴)時間18年前 (2007/03/11 05:56), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串4/6 (看更多)
太久沒寫了,寫玩好想睡=.= ============================================================ 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
文章代碼(AID): #15yveb8A (Perl)
討論串 (同標題文章)
文章代碼(AID): #15yveb8A (Perl)