Re: [問題] 如何修改一個資料夾中的所有檔案?

看板Perl作者 (蜥蜴)時間18年前 (2007/05/04 19:30), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串2/4 (看更多)
※ 引述《CrowOnTorii (烏鴉)》之銘言: : 檔案形式如下:125,160 : ... : xmax_288 xmin_7 : ymax_170 ymin_7 : 現在我想要把每個檔案的最後兩列都砍掉然後存回原檔案 : 也就是把xmax,ymax這兩列砍掉 opendir(DIR,"."); # @DIR=readdir(DIR); #把.資料夾底下的檔案讀入@DIR close(DIR); # foreach(@DIR) { next if ($_ =~ /^\./); #略過.和..兩個 open(FILE,"$_");@temp=<FILE>;close(FILE); #檔案讀入@temp pop(@temp);pop(@temp); #把後面兩行去掉 open(FILE,">$_");print FILE join("",@temp);close(FILE); #檔案寫回去 } #應該是這樣吧 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.120.15.17

05/04 20:55, , 1F
原來有這種方法 感謝^^
05/04 20:55, 1F
文章代碼(AID): #16EnbP-B (Perl)
文章代碼(AID): #16EnbP-B (Perl)