Perl LWP + GD

*
0
*
✩
привет всем =)
нужно скачать картинку, и _без сохранения ее в файл_ поместить в обьект-картинку из GD..

вот пример _с сохранением_ в файл картинки:
# качаем картинку
my $page = $ua->get('http://site1.com/image.png')->as_string;
# пишем ее в файл
open(PICTURE, ">picture.png");
binmode PICTURE;
print PICTURE $im;
close PICTURE;
# открываем ее заново..
my $im = GD::Image->newFromJpeg("picture.png");
($imW, $imH) = $im->getBounds();
..


надо то самое , только без сохранения в файл. чтоб в результате в $im оказалась скачаная картинка..
perl lwp gd
12 месяцев 1 день назад
poma
[204]
#ссылка не по теме? tweet сохранить
комментировать



*
0
*
ээээ... GD::Image->new($data)?

my $img = $ua->get('http://site1.com/image.png')->as_string;
my $im = GD::Image->new($img);
 ....

Сам не пробовал. :)
Еще бы неплохо проверить приехало ли что нить в $img (или ошибка) и распозналось ли это как картинка в GD ($im undefined если ошибка, автоматом распознается PNG, JPEG, XPM и GD2.)
Есть еще GD::Image->newFromGifData($data), GD::Image->newFromPngData($data), GD::Image->newFromJpegData($data)...
#ссылка не по теме?
12 месяцев 23 часа назад
Комментировать

Ваш Ответ:


Ваш OpenID


Получить OpenID

Что такое OpenID?
или

Логин

Email

Пароль


Будет создана учетная запись и на email выслано письмо подтверждения.


новые ответы

Первый раз на сайте?

askdev.ru — это социальный сайт вопросов и ответов для IT-специалистов: программистов, веб-дизайнеров, системных администраторов.
о сайте » регистрация »

Показан

366 раз

Задан

12 месяцев 1 день назад

Теги
perl x 12
lwp x 2
gd x 5
X

Пожалуйста, войдите:


Имя:
Пароль:
регистрация
Или используйте OpenID