Как может я легко увеличивать объем, переименовывают файлы с Perl?

find . -type d -print0 | xargs -0 rename 's/(\d+)/sprintf "%03d", $1/e' 

или что-то в этом роде, при условии

1. У вас есть GNU find и GNU xargs (для -print0 и -0 )
2. У вас есть утилита 'rename', которая поставляется с perl
3. . В имени файла есть только одна группа цифр. Если их несколько, вам нужно что-то сделать с регулярным выражением, чтобы оно соответствовало только числу, которое вы хотите переформатировать.

Это одноразовая вещь ? Если так, то я собираюсь предложить кое-что, что многим программистам может показаться ошибочным:

Передайте вывод вашей команды ( find -type d | sort -r | grep '[1- 9] [0-9] $ ') в файл и используйте редактор вместе с некоторой магией глобального поиска / замены, чтобы создать сценарий, который выполняет переименование.

Затем выбросьте сценарий.

Там есть немного суеты и мало шансов, что вы в конечном итоге выстрелите себе в ногу, если какая-нибудь попытка умной (но неадекватно отлаженной) однострочной строки уйдет в сорняк на ваших файлах.

Выполните две команды в следующем порядке:

$ rename 's/File Name (\d)$/File Name 0$1/' *
$ rename 's/File Name (\d\d)$/File Name 0$1/' *

Первая переименовывает все, что меньше 10, и добавляет в начало ноль. Второй переименовывает все меньше 100 и добавляет ноль. Результат должен состоять из трех цифр для всех имен файлов.

В моем debian он хорошо работает с переименованием, проверено с 300 файлами.

 perl -e 'map `touch door$_.txt`, 1..300;'
 rename 's/(\d+)\.txt/sprintf("%03d.txt", $1)/e' *.txt

Думаю, ммв ваш друг.

use strict;
use File::Copy;

my @files = glob 'File*Name*';

foreach my $filename (@files) {
    if ($filename =~ m`^.*File.*Name.*?(\d+)`) {
        my $number = $1;
        next if ($number > 99);
        rename $filename, sprintf("FileName%03d",$number);
    }
}

вы можете что-то сделать с помощью perl или ruby.

поместите все эти файлы в один каталог

dirlisting = DIR.entries('.')

dirListing.each do |file| 
 num = file.match(/\d+$/).to_i
 if num < 100
   find the position where start the number, with index and inject the 0 there.
 end
end

если на вашем пульте дистанционного управления есть оболочка bash

for i in File*; 
do 
    case "${i##* }" in  [0-9][0-9] ) 
      echo  mv "$i" "${i% *} $(printf "%03d" ${i##* })" ;; 
    esac; 
done

удалите «echo», чтобы выполнить фактическое переименование