zuodx

use strict;

my        @files = glob('*.*');

foreach (@files){
        my $old = $_;
        m/^(.*)\.(.*)$/;
        #print "$1 $2----";
        my $name    =  $1;
        my $postfix =  $2;
       
        $name =~ m/^(.*\D)(\d+)$/;
        #print "$1 $2\n";
        my ($f1 , $f2)  = ($1 , $2);
        ('0000' . $f2) =~ m/(.{3})$/;
        $f2 = $1;
        #print "$f2\n";
        my $new = $f1 . $f2 . '.' . $postfix;
        #print "$new\n";
        rename($old  , $new);
}


#把以上内容拷贝到一个文件 ren.pl
#安装perl  在每一个目录执行这个程序

mofangti

文件夹都是按数字依次排列的，如1（1），1（2）,...2 (1),2 (2),...，文件名英文与数字都有，但是最后几位是数字，从0，1，2，往下排。
例如0b3d9c8b-5a69-49c9-9f8d-a57f5ef0f883_mobile_low0
0b3d9c8b-5a69-49c9-9f8d-a57f5ef0f883_mobile_low1
0b3d9c8b-5a69-49c9-9f8d-a57f5ef0f883_mobile_low2
.每个文件夹下的文件数不超过1000
我希望每个文件夹下的文件按000,001，002， 排列即可

Batcher

文件夹名称发几个出来看看有什么规律