VPF::Help!!! - Форум программистов

Slauta

Дата 19.5.2009, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Оторванный от жизни

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 14.5.2009
Где: Солигорск

Репутация: нет
Всего: нет

Вообщем вот код! Нано что бы эта прога переименовывала все картинки DSC064**.jpg в пример:
32-33.jpg
34-35.jpg
36-37.jpg
38-39.jpg....

Код



for ($i = 1; $i < 100; ++$i)
{
#$o = $i+1;
$p=$i;
$w=DSC064.$p;
$l= '-';
$u=$i-3;

$n=$i-2;
$e=$u.$l.$n;
rename "$w.jpg", "$e.jpg";

print $i, " ";
}
print "\nPOSLE i = $i\n";

удаётся ток первые две строчки а потом всё.... Не идёт...

--------------------

Хм...

shamber

Дата 19.5.2009, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

а Нано причем?

Цитата(Slauta @ 19.5.2009, 22:43

)

Не идёт...

как определили?

Цитата(Slauta @ 19.5.2009, 22:43

)

$e=$u.$l.$n;

а это что за ужас?
может проще

Код


$e=$u.'-'.$n;

Ужос а не код
что вы им хотели сделать? Наплодили кучу ненужных переменных. Зачем?

Это сообщение отредактировал(а) shamber - 19.5.2009, 23:05

Slauta

Дата 20.5.2009, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Оторванный от жизни

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 14.5.2009
Где: Солигорск

Репутация: нет
Всего: нет

Ну лан код я изменил!
После выполнения скрипта переименовывает так:
32-33.jpg
34-35.jpg
35-36.jpg
36-37.....

а надо так:
32-33.jpg
34-35.jpg
36-37.jpg
38-39.jpg....

вот не хочет далше по нормальному переименовывать. Объясните где бага!

--------------------

Хм...

arto

Дата 20.5.2009, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perl -e '$n = 32; foreach (@ARGV) { rename $_,sprintf "%d-%d.jpg",$n++,$n++ }' *.jpg

shamber

Дата 20.5.2009, 09:22 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

Цитата(Slauta @ 20.5.2009, 07:47

)

Ну лан код я изменил!

ну лан я тожа

amg

Дата 20.5.2009, 09:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

arto в своем репертуаре smile

. Хотя для такой задачки самое то.

Еще вариант:

Код

for ($i=1; $i < 100; $i++) {
  $file = "DSC064$i.jpg";
  next if ! -f $file;
  rename $file, 2*$i-1 . '-' . 2*$i . 'jpg' or warn "Can't rename $file: $!\n";
}

shamber

Дата 20.5.2009, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

мне кажется что фотоаппараты, ну или камеры как правило создают файлы типа
DSC06401.jpg а не DSC0641.jpg
$file = "DSC064$i.jpg";
я б еще добавил.

Код


if ($i<10){
$file = "DSC0640$i.jpg";
next if ! -f $file;
  rename $file, '0'.2*$i-1 . '-' .'0'. 2*$i . 'jpg' or warn "Can't rename $file: $!\n";
}

хотя такого условия и не было smile

Slauta

Дата 20.5.2009, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Оторванный от жизни

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 14.5.2009
Где: Солигорск

Репутация: нет
Всего: нет

Сё пасиб за помощь shamber, amg, arto! Будем работать дальше! smile

--------------------

Хм...

amg

Дата 20.5.2009, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Для Windows однострочник arto должен выглядеть как то так:

Код

perl -e "$n = 32; foreach (glob \"@ARGV\") {rename $_,sprintf '%d-%d.jpg',$n++,$n++}" DSC064*.jpg

Это сообщение отредактировал(а) amg - 20.5.2009, 15:28

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »