perl文件名过滤工具

有时候客户给的文件文件名里面有很多空格，在网页解析的时候会把这些空格变成只保留一个，所以得去掉这些空格。通过重命名是一种方法。这里我是对文件名进行批量过滤。

#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find ();
use File::Basename ;

#文件名过滤工具（批量改文件名，去掉文件名中的全部/或多余空格）
#暂不支持目录重命名
use vars qw/*name *dir *prune/ ;
*name = *File::Find::name ;
*dir = *File::Find::dir  ;
*prune = *File::Find::prune ;

our $space = 0 ; #默认留1个空格，$space = 0 时去除所有空格

#回调函数
sub wanted
{
    if( /\.jpg/s )
    {
        my @file_array = split /\n/, $name ;
        foreach my $file ( @file_array )
        {
            my ($nameName,$path,$suffix) = fileparse($file,".jpg");
            print "name:$nameName$suffix\t path:$path\n"
        }
    }
}

sub renamer;
sub folderTraverse
{
    my $dir = shift ; 
    #File::Find::find({wanted=>\&renamer},$dir);
    File::Find::find({wanted=>\&singleFile_renamer},$dir);
}
sub renamer
{
    my @file_array = split /\n/, $name ;
    my %dir_array ;#为了判断元素是否重复，用hash表
    #先对文件进行重命名
    foreach my $file ( @file_array )
    {
        my ($fileName,$path,$suffix) = fileparse($file,".jpg");
        
        $dir_array{$path} = 1 if(!exists( $dir_array{$path} )) ;
        
        my $newFile = $fileName ;
        ( $space ) ? ( $newFile =~ s#\s{2,}# #g ) : ( $newFile =~ s#\s{2,}##g )  ;
        if( -e $newFile ){}
        else{
            if( rename $file => $newFile ){}
            else{warn "rename $file error!";}
        }
    }
    #再对目录进行重命名      !!!!!!!这涉及到一个递归的问题！如果上一级目录先重名于下一级，这样就没法找到下一级目录！
    foreach my $dir ( %dir_array )
    {
        my $newDir = $dir =~ s#\s{2,}# #gr ;
        rename $dir => $newDir ;
    }
}

sub singleFile_renamer
{
    my @file_array = split /\n/, $name ;
    foreach my $file ( @file_array )
    {
        my ($fileName,$path,$suffix) = fileparse($file,".jpg");
        
        my $newFile = $fileName ;
        ( $space ) ? ( $newFile =~ s#\s{2,}# #g ) : ( $newFile =~ s#\s+##g )  ;
        if( -e $path.$newFile.$suffix ){}
        else{
            if( rename $file => $path.$newFile.$suffix ){
                print "替换文件：$fileName 为 $newFile \n";
        }
            else{warn "rename $file error!";}
        }
    }
}


sub main
{
    my $dir = 'C:\Users\Administrator\Desktop\products' ;
    folderTraverse($dir);
}
main();