首页 > 代码库 > windows下拷贝制定文件夹到特定目录
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下拷贝制定文件夹到特定目录
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。