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

78144666

　　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 = ;
　　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 = ;
　　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 = ;
　　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 = )
　　{
　　#获取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 = ;
　　#&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);
　　}
　　}