看板
[ Perl ]
討論串[問題] 請問使用檔案比對時?
共 6 篇文章
內容預覽:
... 超懶人作法. 全部丟給 regexp >w<;. open( F2, "<./2" ); # read patterns. $pat = '('. join( '|', map{ chomp; $_; }<F2> ). ')';. close( F2 );. open( F1, "<./1"
(還有71個字)
內容預覽:
open(IF, "patterns.txt") or die "cannot open: $!";. chomp(@patterns = <IF>);. close IF;. open(IF, "data.txt") or die "cannot open: $!";. map {$line =
(還有253個字)
內容預覽:
太久沒寫了,寫玩好想睡=.=. ============================================================. open(FILE,"a.txt");@A=<FILE>;close(FILE);#a是五行的檔案. open(FILE,"b.txt");@B
(還有138個字)
內容預覽:
將你的檔內容存成temp1.txt跟temp2.txt. ##############################################################################open f1,"<temp2.txt";. chomp(@pattern=<f1>)
(還有159個字)