zuodx

######PERL#########
use strict;

for my $u (1..2000){
        for my $d qw(FW QLR QT DA){
                my $cmd = "md $u\\$d" ;
                #print "$cmd\n";
                `$cmd`;
        }
    for my $f (1..4){       
                my $cmd = "copy $u\\FW_${f}.*   $u\\fw";
                #print "$cmd\n";
                `$cmd`;
        }
}
######END##########
#把以上内容拷贝到p.pl
#把p.pl放到1 2 3 .。。。。等目录的父目录下。
#p.pl  就行了。