Perl实现文件夹下文件内容的批量修改

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

use strict;
use warnings;
use File::Find;

my $root="D:\\workspaces\\test";
find(\&handle, $root);

sub handle
{
    my $file = $File::Find::name;
    return if -d $file;

    open (IN, $file) or die "$!, opening $file\n";
    open (OUT, ">TEMP") or die "$!, opening TEST\n";

    while (my $line = <IN>)
    {
        $line =~ s/xxx;/yyy;/g;
        print OUT $line;
    }

    close OUT;
    close IN;

    rename("TEMP", $file);
    unlink("TEMP");
}

2. 如果只是单个文件中的替换，可以用下面语句在cmd中执行：

perl -pi.bak -e "s/xxx/yyy/g" file