perl 文件内容替换

命令：

perl 命令可以批量替换文件中的一些内容，操作起来非常高效。下面举几个例子:

perl -pi -e "s/aaa/bbb/gi" test.txt

上面的命令把test.txt文件中的字符aaa替换成bbb

perl -pi.bak -e "s/aaa/bbb/gi" test.txt

上面的命令把test.txt文件中的字符aaa替换成bbb,并生成一个test.txt.bak的备份文件

find ./ -name "*.txt" | xargs perl -pi.bak -e "s/aaa/bbb/gi"

上面的命令把当前目录下所有的.txt文件中的字符aaa替换成bbb,并生成相应的.bak的备份文件

注意：如果是报错can‘t do inpalce without backup ，请执行第二种方案，针对window进行验证过。 

• -p 告诉Perl对后面添加的文件名参数进行遍历，大致和sed中的这段代码效果类似 

•  -i 大致是用来读取文件时进行备份操作。
• -e 告诉Perl后面跟上perl语句

 -p和-i可以合在一起-pi，-p -e也可以何在一起，但是-i,-e不能合在一起写-ie。

1. File::Find实现文件夹下文件内容的批量修改

点击(此处)折叠或打开

1. use strict;
   
2. use warnings;
   
3. use File::Find;
   
4. 
   
5. my $root="D:\\workspaces\\test";
   
6. find(\&handle, $root);
   
7. 
   
8. sub handle
   
9. {
   
10.     my $file = $File::Find::name;
    
11.     return if -d $file;
    
12.      
    
13.     open (IN, $file) or die "$!, opening $file\n";
    
14.     open (OUT, ">TEMP") or die "$!, opening TEST\n";
    
15.     
    
16.     while (my $line = <IN>)
    
17.     {
    
18.         $line =~ s/xxx;/yyy;/g;
    
19.         print OUT $line;
    
20.     }
    
21.     
    
22.     close OUT;
    
23.     close IN;
    
24.     
    
25.     rename("TEMP", $file);
    
26.     unlink("TEMP");
    
27. }