Исходное сообщение
"Третий номер электронного журнала Pragmatic Perl" Отправлено kurokaze, 12-Май-13 22:02
Отлично, как раз сегодня надо было переименовать кучу скриншотов в куче разных подкаталогах, чтобы они последовательно нумеровались в имени с 0, в порядке увеличения значения mtime find -type f | perl -ne '{chomp; push @all, $_;} END{ @als = sort{ @sa=stat($a); @sb=stat($b); $sa[9]<=>$sb[9] } @all; for $i(0..@als-1){ $nn=sprintf "sshot%04d.webp", $i; rename $als[$i], $nn; };}'

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Отлично, как раз сегодня надо было переименовать кучу скриншотов в куче разных > подкаталогах, чтобы они последовательно нумеровались в имени с 0, в порядке > увеличения значения mtime > find -type f | perl -ne '{chomp; push @all, $_;} END{ @als > = sort{ @sa=stat($a); @sb=stat($b); $sa[9]<=>$sb[9] } @all; for $i(0..@als-1){ $nn=sprintf > "sshot%04d.webp", $i; rename $als[$i], $nn; };}'
	Введите код, изображенный на картинке: