perl如何直接對文件進行修改

libiqing77

我要對一個文本文件直接進行修改，比如說對某一行里<..........>的內(nèi)容刪除，我是將它替換成空字符
s/<.*>//g,
而我又不想將更改后的文件寫進新的文件，能不能直接在原文件里修改，請各位大蝦幫忙！不勝感激！

hitsubunnu

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

復制代碼

libiqing77

謝謝，這是用命令行吧。我想通過程序代碼實現(xiàn)，因為需要對很多文件進行處理。

hitsubunnu

正常方法都是

先寫到 *.tmp 然后  unlink 再 rename

hitsubunnu

你的問題相當于

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

--這是不可能的

shaneqi

原帖由 libiqing77 于 2009-3-5 13:20 發(fā)表
謝謝，這是用命令行吧。我想通過程序代碼實現(xiàn)，因為需要對很多文件進行處理。

你可以去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 發(fā)表
謝謝，這是用命令行吧。我想通過程序代碼實現(xiàn)，因為需要對很多文件進行處理。

你如果在 perlrun 中查查 -ip 什么意思就不會、也不應該說這話了。