请教替换文件内容的方法?

microsea

我想将文件中的某句话的一部分替换为新内容,要如何实现,如我想将noteslog.html中的abc都替换成123,????????部分要怎么写呢?谢谢

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use CGI qw(:standard);
   
6. 
   
7. open (LOGFILE,"+< noteslog.html");
   
8. 
   
9. my $seek="abc";
   
10. 
    
11. while(<LOGFILE>;){
    
12. 
    
13. ???????????????
    
14. 
    
15. }
    
16. close(LOGFILE);
    
17. 
    

复制代码

apile

文件不大:RAM夠大..
open(FF,"<xxx.txt");
$/="";
$data = <FF>;;  
$data=~s/abc/123,xxxxx/sg;
close(FF);
open(FF,">;xxx.txt");
print FF $data;
close(FF);

文件很大: RAM不夠大...
open(F1,"<xxx.txt");
open(F2,">;output.txt");
while(<F1>;){
  s/aaa/123,xxxx/sg;
  print F2 $_;
}
close(F1);
close(F2);

microsea

感谢,第一种方法简单好用,第二种我也是这么用的,就是觉得要多打开一个文件,麻烦了点!

麻辣

我习惯第二种方法,第一种方法 速度稍慢,也增加内存消耗(如文件小也无所谓)

zhangold3

s/aaa/123,xxxx/sg;
这里的xxxx是什么意思呢？

麻辣

原帖由 "zhangold3" 发表：
s/aaa/123,xxxx/sg;
这里的xxxx是什么意思呢？

   
把aaaxxxxx替换成123.xxxxxxxxxx 只是个示例