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  在每一个目录执行这个程序