perl如何直接对文件进行修改

libiqing77

我要对一个文本文件直接进行修改，比如说对某一行里<..........>的内容删除，我是将它替换成空字符
s/<.*>//g,
而我又不想将更改后的文件写进新的文件，能不能直接在原文件里修改，请各位大虾帮忙！不胜感激！

hitsubunnu

1. 
   
2. 
   
3. perl -pi.bak -e 's/<.*>//g;'  filename
   
4. 
   

复制代码

libiqing77

谢谢，这是用命令行吧。我想通过程序代码实现，因为需要对很多文件进行处理。

hitsubunnu

正常方法都是

先写到 *.tmp 然后  unlink 再 rename

hitsubunnu

你的问题相当于

怎么把同一个杯子里的咖啡在 不用第二个容器的情况下 换成牛奶？

--这是不可能的

shaneqi

原帖由 libiqing77 于 2009-3-5 13:20 发表
谢谢，这是用命令行吧。我想通过程序代码实现，因为需要对很多文件进行处理。

你可以去CPAN上查查有没有类似的模块

shaneqi

试试这个

File:: Data

[ 本帖最后由 shaneqi 于 2009-3-5 14:22 编辑 ]

churchmice

1. 
   
2. $^I=".bak";
   
3. push @ARGV,"filenames_you_want_to_process";
   
4. while(<>){
   
5. do_you_things_here
   
6. print; # This line is very important, don't miss it
   
7. }
   

复制代码

MMMIX

原帖由 libiqing77 于 2009-3-5 13:20 发表
谢谢，这是用命令行吧。我想通过程序代码实现，因为需要对很多文件进行处理。

你如果在 perlrun 中查查 -ip 什么意思就不会、也不应该说这话了。