求代码 把一个文件夹下的5万txt文件每500个放入一个文件夹

hepac

50 rmb

ellrywych

0.5rmb

lixuguang.xy

帮顶 来分··

xen

楼上的大牛们

cisco

不会.帮顶

jeffpan

1. use strict;
   
2. use File::Copy;
   
3. 
   
4. my @files = glob "*.txt";
   
5. my $dirname;
   
6. my $i=0;
   
7. my $count=500;
   
8. 
   
9. for my $f (@files) {
   
10.      unless ($i % $count) {
    
11.         $dirname = "dir$i";
    
12.         mkdir $dirname;
    
13.      }
    
14.      move $f, $dirname;
    
15.      $i++;
    
16. }

复制代码

jeffpan

perl代码

vip1

小说站吧？可以分享下么

母‪鸡

ls -l都有困难。。。