LINUX.ORG.RU

История изменений

Исправление a--, (текущая версия) :

если директории уже существуют, то вот

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i)),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j)),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k)),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run

dry run есть, но требует приобрести версию Ultra Ultimate Enterprise Edition (с обязательным hardware dongle и запуском сервера лицензий, разрешающим использовать скрипт на не более чем одном компьютере клиента в каждый отдельный момент времени)

Исправление a--, : 

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i)),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j)),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k)),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run

dry run есть, но требует приобрести версию Ultra Ultimate Enterprise Edition (с обязательным hardware dongle и запуском сервера лицензий, разрешающим использовать скрипт на не более чем одном компьютере клиента в каждый отдельный момент времени)

Исправление a--, : 

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i)),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j)),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k)),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run

dry run есть, но требует приобрести версию Ultra Ultimate Enterprise Edition (с обязательным hardware dongle)

Исправление a--, : 

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run

dry run есть, но требует приобрести версию Ultra Ultimate Enterprise Edition (с обязательным hardware dongle)

Исправление a--, : 

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run

dry run есть, но требует приобрести версию Ultra Ultimate Enterprise Edition

Исходная версия a--, : 

find | perl -ne '
chomp;
rename($_,sprintf("/dir1/image%05d.jpg",++$i),next if /regex1/;
rename($_,sprintf("/dir2/image%05d.jpg",++$j),next if /regex2/;
rename($_,sprintf("/dir2/video%05d.jpg",++$k),next if /regex3/;
'

если добавить еще 10 строк, будет тебе еще и dry run