perl批量处理文件

###############################################################################
# fileGs
# 功能: 将指定目录下所有.c和.h文件的tab转成空格、删除行尾空字符
# 说明: 此脚本提供了批量处理文件的方法，修改单行线之间的内容可以完成不同的功能
# ------------------------------------------------------------By G-Spider @2014
###############################################################################
#!/usr/bin/perl
use strict;
use File::Find;
use File::Copy;
#==============================================================================
# tab 所占字节数，根据实际情况调整，一般设为8或4
my $TABLEN = 4;
# 目录请使用单引号包含，可包含多个目录，逗号分隔
my @AllDir = (
            'E:\test',
            
             );
#==============================================================================
foreach (@AllDir){
    find(\&underscores,$_);
}
print "all complete.\n";
#==============================================================================
sub underscores{
    next if -d $_;
    next unless /(\.c$)|(\.h$)/;
    my   $oldfile  = $_;
    my   $newfile  = "$_.".int(rand(1000)).'.tmp';
    my   $flag     = 0;
    unlink glob '*.tmp';
    open (my $hout ,">>", $newfile) or die $!;
    open (my $hin  ,"<" , $oldfile) or die $!;
    for (<$hin>){
    #--------------------------------------------------------------------------
        while (/(\t)/g){
            my $curindex = pos;
            my $tmp = ' ' x (($curindex % $TABLEN) ? ($TABLEN + 1 - $curindex % $TABLEN) : 1);
            s/(\t{1})/$tmp/;
            $flag |= 1;
        }
        $flag |= 2 if s/[ \t]+$//;
        print $hout $_;
    #--------------------------------------------------------------------------
    }
    close $hout;
    close $hin;
    if ($flag){
        chmod 0755, $oldfile;
        copy($newfile, $oldfile);
        print "$oldfile modify complete. %%%%%%%%%%%%% code [$flag]\n";
     }
     else{
        print "$oldfile isn't change.\n";
     }
     unlink $newfile;
}
1;