Сохраните приведенный ниже код в текстовый файл (например, «renameDir.pl»). Затем откройте окна терминала, где находятся ваши папки, и запустите скрипт, например, renameDir.pl 14*
(или любой другой шаблон, который будет соответствовать папкам, которые вы хотите переименовать).
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
foreach my $dir (@ARGV) {
(my $year, my $month, my $day, my $text) = ($dir =~ m/^(\d\d)(\d\d)(\d\d)_(.*)/);
if ($year && $month && $day && $text) {
my $Text = ucfirst($text);
my $newDir = "20$year-$month-$day $Text";
print "Moving \"$dir\" to \"$newDir\"\n";
move($dir, $newDir) or die "Unable to rename $dir:\n$!\n";
}
else {
warn "Unable to parse $dir\n";
}
}
Предполагается, что все ваши новые имена папок хотят начинаться с года, например, с 20xx, а не с 19xx, но вы можете отредактировать сценарий для обработки этого по мере необходимости.