windows下拷貝制定檔案夾到特定目錄

標籤：

D:\資產清查照片>dir /S /D | perl -ne "if(/的目錄/){ $_ =~ s/\s+的目錄//; print $
_;}" > d:\workspace\dir2.txt

D:\workspace>perl  aa.pl lanshanZM.txt dir1.txt > cpls.bat

D:\workspace>cpls.bat

open RH, $ARGV[0];@lnAs = <RH>; chomp @lnAs;close RH;open RH, $ARGV[1];@lnBs = <RH>; chomp @lnBs;close RH;print ‘mkdir d:\\workspace\\lanshanJZ‘ . "\n"; for($i = 0; $i < @lnAs; $i ++){ for($j = 0; $j < @lnBs; $j ++){  if($lnBs[$j] =~ /$lnAs[$i]/){   print ‘mkdir d:\\workspace\\lanshanJZ\\‘ .$lnAs[$i] . "\n";    print ‘copy ‘.$lnBs[$j].‘ d:\\workspace\\lanshanJZ\\‘.$lnAs[$i]. "\n";    last;  } } if($j >= $#lnBs){  print ‘#‘.$lnAs[$i] . "\n"; }}

windows下拷貝制定檔案夾到特定目錄