VPF::Создание копии картинки в другой папки

MaxPayne

Дата 31.10.2006, 10:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Проблема такая:
Делаю глобальную перестановку и перемещения на сайте силами перла.

Имеется много папок в которых лежат картинки, теперь нужно эти картинки из каждой папки открыть и сделать копию (не перемещаю на всякий случай) в другую папку.
Для теста перебираю 300 папок.

Из файла например
/home/www/htdocs/138714367814935814/2000001/foto.jpg
нужно сделать
/home/www/htdocs/file/img/20000001.jpg
и так далее.

Привожу код, который создает в новой папке файл, но он обрезанный. Т.е. вместо 17 Кб картинки получает 636 байт.
В чем беда?

Код


$count=20000001;

while ($count < 20000300)
{
open (F,"/home/www/htdocs/138714367814935814/$count/foto.jpg");
binmode F;
@FF = <F>;
close(F);

$file = $count . '.jpg';

open(F,">/home/www/htdocs/file/img/$file"); 
binmode(F);
print F <@FF>;
close(F);

$count++;
}

Это сообщение отредактировал(а) MaxPayne - 31.10.2006, 10:30

djkostya

Дата 31.10.2006, 10:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Может лучше воспользоваться командой cp

nitr

Дата 31.10.2006, 11:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

MaxPayne, имел ввиду обычным копированием smile

можно перемещением smile

Код


#!perl -w
use strict;
rename '/home/www/htdocs/138714367814935814/2000001/foto.jpg', '/home/www/htdocs/file/img/20000001.jpg';

;)

Добавлено @ 11:51
прямо так и можно

Код


#!perl -w
use strict;

for (my $count = 20000001; $count < 20000300; $count++) {
    rename qq|/home/www/htdocs/138714367814935814/$count/foto.jpg|, qq|/home/www/htdocs/file/img/$count.jpg|;
}

Это сообщение отредактировал(а) nitr - 31.10.2006, 11:55

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

I love ArchLinux

MaxPayne

Дата 31.10.2006, 12:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

Перемещать как раз не хотел - сначала скопирую - проверю, поднастрою модперл, потом уже удалю старое.

Копировать как я понимаю примерно как и перемещать?

Код


#!perl -w
use strict;

for (my $count = 20000001; $count < 20000300; $count++) {
    copy qq|/home/www/htdocs/138714367814935814/$count/foto.jpg|, qq|/home/www/htdocs/file/img/$count.jpg|;
}

JUmPER

Дата 31.10.2006, 14:18 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


use File::Copy;

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

Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной

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