linux拷贝文件夹到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 = ; chomp @lnAs;

close RH;

open RH, $ARGV[1];

@lnBs = ; chomp @lnBs;

close RH;

print 'mkdir d:\\workspace\\lanshanJZ' . "\n";

for($i = 0; $i 

for($j = 0; $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";

}

}