作者imce (蜥蜴)
看板perl
标题Re: [问题] 如何修改一个资料夹中的所有档案?
时间Fri May 4 19:30:32 2007
※ 引述《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
1F：推 CrowOnTorii:原来有这种方法 感谢^^ 05/04 20:55