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

[imce (蜥蜴)]

※ 引述《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
推 CrowOnTorii:原來有這種方法 感謝^^