【结贴】perl正则表达式替换字符为空

Perlvim

1. #!/usr/bin/perl -w
   
2. 
   
3. open FILE,"log";
   
4. open F2,"+<log";
   
5. 
   
6. foreach (<FILE>){
   
7.   next if /\(a\)/;
   
8.   print F2;
   
9. }
   
10. 
    
11. close F2;
    
12. close FILE;
    

复制代码

Perlvim

抱歉，让你失望了，我只知道一种操作符，> , 而且每次都只会这么写

open(my $fh, '>', 'filename') or die $!;

实在搞不清楚那么多的读写符号。我在读写文件时，现在只用 File::Slurp 模块的
read_file write_file 函数接口。

在处理文件时，我很少把输出文件和输入文件设置成一个。因为一旦搞错，数据就毁了。

通常是，设置两个不同的文件，一个读，一个写，经过确认没有问题后，也不敢把原先的文件覆写。而是备份起来。

遍历文件中，对于忽略的行，通常用 next 那么在新文件中就不出现了。