Chinaunix

标题: 求助更新多个文件 [打印本页]

作者: rettylee 时间: 2011-05-09 11:36
标题: 求助更新多个文件
我想更新多个文件，文件名与修改前相同。perl有$^I=“.bak”可以实现这个功能。
但是现在，由于我对单个文件的替换需要跨行，三种情况需要对整个文件读入后才能处理。所以，我写了如下代码：
while(<>) {
$lines.=$_;
}
然后再对$lines进行匹配替换。
if(//) {
}
if(//){
}
if(//){
}

现在的问题是我如何才能更新多个文件，文件名与修改前相同。
我不知道把print放在什么地方才能实现我想要的功能。
或者哪位仁兄给提供个其他的解决方案。
先谢谢各位了！

作者: rettylee 时间: 2011-05-09 13:17
本帖最后由 rettylee 于 2011-05-09 13:54 编辑

路过的大侠指点下啊。如何在多行替换中也能实现bak的效果啊。

作者: ttcn_cu 时间: 2011-05-09 14:01
先备份所有文件

自己遍历目录
操作前把文件复制一份，名为 xxx.bak，读模式打开
写模式打开原名字文件
遍历行，写入

作者: rettylee 时间: 2011-05-09 15:51

先备份所有文件

自己遍历目录
操作前把文件复制一份，名为 xxx.bak，读模式打开
写模式打开原名字文件 ...
ttcn_cu 发表于 2011-05-09 14:01

我用你这种方法试试，听起来应该是可以的。是不是$^I只能用在逐行处理的模式下才能自动备份？

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)