Исправление 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