作者CrowOnTorii (乌鸦)
看板perl
标题[问题] 如何修改一个资料夹中的所有档案?
时间Fri May 4 18:52:06 2007
我现在有一大堆资料档案
每一笔档案内容都是一长串座标,最下面两列标示出这些座标中的最大与最小值
而且每个档的总共列数都不一样
档案形式如下:125,160
126,161
140,150
...
...
xmax_288 xmin_7
ymax_170 ymin_7
现在我想要把每个档案的最後两列都砍掉然後存回原档案
也就是把xmax,ymax这两列砍掉
爬了文後发现有以下方法
open(F1,"<A");
open(F2,">B");
while(<F1>){
last if ($_ =~ m/xmax/);
print F2 $_;
}
close(F1);
close(F2);
但这方法只能自己指定要更改档案的名称,无法一次对资料夹中的所有档案作更改
而且这方法并不是存到原档案,而是存到一个新档案
请问有人知道应该怎麽做的吗?
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.118.155.163
※ 编辑: CrowOnTorii 来自: 140.118.155.163 (05/04 18:53)