windows下拷贝制定文件夹到特定目录

最新推荐文章于 2023-05-17 16:05:06 发布

weixin_33698823

最新推荐文章于 2023-05-17 16:05:06 发布

阅读量420

点赞数

文章标签： python

原文链接：https://my.oschina.net/xiechaoyong/blog/362249

版权

2019独角兽企业重金招聘Python工程师标准>>>

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";
 }
}

转载于:https://my.oschina.net/xiechaoyong/blog/362249