пакетное переименование файлов с номерами для сортировки по алфавиту

Вопрос или проблема

xx 1 abc.txt
xx 2 def.txt
xx 3 ghi.txt
xx 3.5 jkl.txt
xx 4a mno.txt
xx 4b pqr.txt
...
xx 100 end.txt

xx 001 abc.txt
xx 002 def.txt
xx 003 ghi.txt
xx 003.5 jkl.txt
xx 004a mno.txt
xx 004b pqr.txt
...
xx 100 end.txt

#!/usr/bin/perl
opendir(DIR, ".");
@files = sort(grep(/txt$/i, readdir(DIR)));
closedir(DIR);

$len=0;
foreach $file (@files) {
    print $file."\n";
    if ($file=~/xx (\d+)(.*\.txt)$/i) {
        $len=(length($1)>$len)?length($1):$len;
    }
}
foreach $file (@files) {
    if ($file=~/xx (\d+)(.*\.txt)$/i) {
        $newfile=sprintf("%0${len}d%s", $1, $2);
        rename("$file", "$newfile");
    }
}

Ответ или решение

Пакетное переименование файлов с числовыми значениями для правильной сортировки по алфавиту

Если вам необходимо пакетно переименовать набор файлов с числовыми значениями, чтобы обеспечить их корректную алфавитную сортировку, данный процесс можно реализовать с помощью скрипта, учитывающего число цифр в наибольшем значении в каждом наборе файлов.

Шаги по переименованию файлов

1. Создание резервной копии: Перед началом работы с файлами всегда рекомендуется создать их резервную копию. Это поможет избежать потерь данных в случае ошибки.

2. Переход в нужную директорию: Откройте командную строку (cmd) и перейдите в директорию, где находятся ваши файлы. Используйте команду:

   cd путь_к_вашей_директории

3. Написание скрипта: Вы можете использовать Perl для создания скрипта rename-pad.pl. Вот пример кода, который решит вашу задачу.

   #!/usr/bin/perl
   use strict;
   use warnings;
   
   opendir(DIR, ".") or die "Не удается открыть директорию: $!";
   my @files = sort(grep(/xx \d+.*\.txt$/i, readdir(DIR))); # Фильтрация файлов
   closedir(DIR);
   
   my $max_length = 0;
   my %file_groups; # Группируем файлы по префиксам
   
   foreach my $file (@files) {
      if ($file =~ /^(xx) (\d+)(.*\.txt)$/i) {
          my $prefix = $1;
          my $number = $2;
          my $suffix = $3;
   
          $file_groups{$prefix}{$number} = "$file"; # Храним файл в группе
          $max_length = length($number) if length($number) > $max_length; # Определяем максимальную длину
      }
   }
   
   foreach my $prefix (keys %file_groups) {
      foreach my $number (sort { $a <=> $b } keys %{$file_groups{$prefix}}) {
          my $new_number = sprintf("%0${max_length}d", $number); # Форматируем номер с нулями
          my $old_file = $file_groups{$prefix}{$number};
          my $new_file = "$prefix $new_number" . ($old_file =~ /^(xx \d+)(.*\.txt)$/ ? "$2" : "");
   
          rename($old_file, $new_file) or warn "Не удалось переименовать '$old_file' в '$new_file': $!";
      }
   }

4. Запуск скрипта: Сохраните скрипт в файл rename-pad.pl и выполните его в командной строке:

   perl rename-pad.pl

Объяснение кода

• Инициализация и чтение директории: Скрипт открывает текущую директорию и читает все файлы, фильтруя их по шаблону, который начинается с xx и заканчивается на .txt.

• Группировка файлов: Файлы группируются по префиксам, а также определяется максимальная длина чисел в этих группах.

• Переименование файлов: Для каждого файла создается новое имя, где числовая часть дополнена ведущими нулями до максимальной длины. Затем файлы переименовываются.

Заключение

Этот подход даст вам возможность эффективно переименовать файлы, чтобы они корректно сортировались в любой операционной системе и приложении. Пожалуйста, убедитесь, что должным образом протестировали скрипт на небольшом наборе файлов перед его массовым использованием.