perl 遍历windows系统拷贝想要的东西

use File::Copy ;

sub Digui_GetFile {    
  my $path = shift @_; 
  my $ArrayPoint = shift @_;
  my $subpath;
  my $handle; 

   if (-d $path)
   { 
        if (opendir($handle, $path)) 
  {
            while ($subpath = readdir($handle)) 
   {
                if (!($subpath =~ m/^\.$/) && !($subpath =~ m/^(\.\.)$/))
    {
                   my $NewPath = $path."/$subpath";  
                    if (-d $NewPath) 
     {   
         #是目录继续递归调用
                        Digui_GetFile($NewPath,$ArrayPoint);
                    } 
     else 
     {    
          #不是目录存入
          $filecount++;
                         push @$ArrayPoint,$NewPath."\n";                    
                    }
                }                
            }
            closedir($handle);            
        }
     } 

    return $filecount;
} 

#将内容写入文本
sub WriteToFile
{
 my $FilePath = shift;
 my @WriteContent = @_;
 if(-d $FilePath)
 {
  print "这是一个目录，不是文件\n";
  return 1;
 }

 #以新建的方式打开文件
 open(FileOut,">$FilePath");
 foreach my $value(@WriteContent)
 {
     #去掉开头和结尾的空格
     $value =~ s/^\s+//;
        $value =~ s/\s+$//;
     #注意这里没有逗号
  print FileOut $value; 
 }

 close(FileOut);
}

#获得以指定符号结尾的结果
sub GetEndWithResult
{
   my $File = shift;
   my $EndWith = shift;

   foreach my $value(@$EndWith)
   {
        #过滤掉空白行
        if($value =~ m/\s+/)
  {
   next;
  }

        my $FileName = substr($File,rindex($File,"/")+1,length($File) - rindex($File,"/") - 1);
        #开头加上逗号
  unless($value =~ m/^\./)
  {
   $value =~ s/^/\./;
  }

  if($FileName =~ m/$value$/)
  {
      #print "End with is Rum\n";
      #print "valuse is $value\n";
      #print "FileName is $FileName\n"; 
      #my $test = <stdin>;
   return 1;
  }
   }
   return 0;
}

#获得模糊匹配的结果
sub GetContentwithResult
{
   my $File = shift;
   my $ContentWith = shift;

   foreach my $value(@$ContentWith)
   {
       #过滤掉空白行
        if($value =~ m/\s+/)
  {
   next;
  }
  #过滤掉前后的空白
  s/^\s+//;
        s/\s+$//;
        my $FileName = substr($File,rindex($File,"/")+1,length($File) - rindex($File,"/") - 1);
     #模糊匹配
  if($FileName =~ m/$value/)
  {

     # print "contentwith is Rum\n";
    #  print "valuse is $value\n";
    #  print "FileName is $FileName\n"; 
    #  my $test = <stdin>;
   return 1;
  }
   }
   return 0;
}

#精确匹配包含的结果
sub GetEqualWithResult
{
   my $File = shift;
   my $EqualWith = shift;

   foreach my $value(@$EqualWith)
   {
  #过滤掉空白行
        if($value =~ m/\s+/)
  {
   next;
  }
  #过滤掉前后的空白
  $value =~ s/^\s+//;
        $value =~ s/\s+$//;
  #以exe结尾的后面要加上.lnk
  if($value =~ m/\.exe$/)
  {
   $value = $value.".lnk";
  }

        my $FileName = substr($File,rindex($File,"/")+1,length($File) - rindex($File,"/") - 1);
        #注意！！！！！！！！！！（perl中两个字符串不等，一般都是没有去掉首尾的空格！！！）
  $FileName =~ s/^\s+//;
        $FileName =~ s/\s+$//;

  #精确匹配
  if($FileName eq $value)
  {      
     # print "Equal with is Rum\n";
     # print "valuse is $value\n";
     # print "FileName is $FileName\n"; 
      #my $test = <stdin>;

   return 1;
  }
   }
   return 0;
}

#获得最终的拷贝结果
sub GetCopyResult
{
 my $Result = shift;
 my $Endwith = shift;
 my $Contentwith = shift;
 my $EqualWith = shift;
 my $CopyResult = shift;
 #遍历目标目录下的所有文件
 foreach my $File(@$Result)
 {
  if(0 != @$Endwith)
  {
      #是否以指定符号结尾
   if(1 == &GetEndWithResult($File,\@$Endwith))
   {
               push @$CopyResult,$File;
               next;      
   }
  }

  if(0 != @$Contentwith)
  {
      #是否模糊匹配一定字符串
   if(1 == &GetContentwithResult($File,\@$Contentwith))
   {
               push @$CopyResult,$File;
      next;
   }
  }

  if(0 != @$EqualWith)
  {
      #是否精确匹配一定字符串
   if(1 == &GetEqualWithResult($File,\@$EqualWith))
   {
               push @$CopyResult,$File;
      next;
   }
  }

 }

 return 1;
}

#读取拷贝配置文件
sub ReadFromConfig
{
 my $FilePath = shift;
 my $HashValue = shift;
 unless( -e $FilePath)
 {
  die "the config file does not exit";
 }

    #打开配置文件
 open(FileOut,"$FilePath");
 while(my $value = <FileOut>)
 {
     #获取key值
  my $key = substr($value,0,index($value,":")+1);
  my $Keyvalue =  substr($value,length($key),length($value) - length($key));
  #注意这里！！！哈希传引用赋值时是两个$$,第一个$HashValue是哈希的地址
  $$HashValue{$key} = $Keyvalue;  
 }

 close FileOut;
 return 1;
}

my $ConfigeFilePath = "c:\\MYPERLCOPY\\PerlCopyConfig.txt";
my %ConfigContent;
&ReadFromConfig($ConfigeFilePath,\%ConfigContent);

unless(exists $ConfigContent{"Source:"})
{
 die "the sorce file dose not exit\n";
}
#获得拷贝源路径
my $SrcCopyFile = $ConfigContent{"Source:"};
print "src is $SrcCopyFile\n";
#文件路径替换(注意这里的模式绑定符号=~)
$SrcCopyFile =~ s/\\/\\\\/ig;
#去掉开头的空白（注意路径一定要去掉开头和结尾的空白）
$SrcCopyFile =~ s/^\s+//;
$SrcCopyFile =~ s/\s+$//;
unless(exists $ConfigContent{"Dest:"})
{
 die "the sorce file dose not exit\n";
}
#获得拷贝目标路径
my $DestCopyFile = $ConfigContent{"Dest:"};
$DestCopyFile =~ s/\\/\\\\/ig;
$DestCopyFile =~ s/^\s+//;
$DestCopyFile =~ s/\s+$//;
my @Result;
my $Count = Digui_GetFile($SrcCopyFile,\@Result);
print "Count is $Count\n";
if(0 == $Count)
{
 die "there is no file to copy\n";
}

#print "result is @Result\n";

#得到以结尾结束的结果集
my @EndWith;
if(exists $ConfigContent{"EndWith:"})
{
 @EndWith = split/,/,$ConfigContent{"EndWith:"};
}

#获得模糊匹配的结果集
my @ContentWith;
if(exists $ConfigContent{"ContentWith:"})
{

 @ContentWith = split/,/,$ConfigContent{"ContentWith:"};
}

#获得精确匹配的结果集
my @EqualWith;
if(exists $ConfigContent{"EqualWith:"})
{
 @EqualWith = split/,/,$ConfigContent{"EqualWith:"};
}

#获得过滤的结果
my @CopyResult;
&GetCopyResult(\@Result,\@EndWith,\@ContentWith,\@EqualWith,\@CopyResult);

#print "result is @CopyResult\n";

#将文件逐个进行拷贝
foreach my $value (@CopyResult)
{
    $value =~ s/^\s+//;
    $value =~ s/\s+$//; 
    print "value is $value\n";
 print "dest is $DestCopyFile";
 #my $test = <stdin>;
 #&File::Copy::copy($value, $DestCopyFile) or die "Can not copy file!!!";
 copy($value, $DestCopyFile) or die "Can not copy file!!!";
}

my $CopyOrMove = $ConfigContent{"COPY:"};
#是否删除文件
if($CopyOrMove =~ m/false/i)
{
 foreach my $value (@CopyResult)
 {
  unlink($value);
 }
}