VPF::Закачать картинку - Форум программистов

DEER

Дата 17.3.2006, 12:38 (ссылка)

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

Загрузка ...

Опытный

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

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

суть такая:
пусть есть страница.
на странице есть картинка с адресом

Код


http://geo.1september.ru/2002/07/1_3.jpg

Хочу
1) получив через LWP код страницы,
2)найти на этой странице адрес этой картинки
3)и уже по полученному адресу сохранить её себе в каталог.
1 и 2 сделать не проблема.
Хочу узнать возможно ли сделать пункт 3 ??
И если да то каким образом это делается??

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

sharq

Дата 17.3.2006, 12:47 (ссылка)

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

Загрузка ...

Perl Liker

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

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

DEER, конечно можно!
Получаешь страницу http://geo.1september.ru/2002/07/1_3.jpg и контент страницы сохраняешь в файле с соответствующим именем и расширением!

smile

Это сообщение отредактировал(а) sharq - 17.3.2006, 12:49

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

[color=gray]There's More Than One Way To Do It[/color]

nitr

Дата 17.3.2006, 12:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Проще говоря пункт 1 только для адреса картинки smile

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

I love ArchLinux

DEER

Дата 17.3.2006, 12:53 (ссылка)

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

Загрузка ...

Опытный

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

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

т.е.?

если я сделаю

Код


 my $pict = get('http://geo.1september.ru/2002/07/1_3.jpg');

то в $pict будет лежать код картинки?
и мне останется только создать файл, запихать в него содержимое $pict,
и сохранить под именем 1.jpg

так что ли?
Добавлено @ 12:53
Спасибо

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

BlackLFL

Дата 17.3.2006, 12:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # For debuging
use LWP;

my $ua = LWP::UserAgent->new();
$ua->timeout(5);
$ua->agent( "Mozilla/5.0" );
my $url = "http://ya.ru/logo.gif";
my $document = $ua->request( HTTP::Request->new( GET => $url ) );

print "Content-type: text/html\n\n";

open( FILE, ">file.gif" );
binmode( FILE );
print FILE $document->content;
close( FILE );
1;

Это сообщение отредактировал(а) BlackLFL - 17.3.2006, 13:01

nitr

Дата 17.3.2006, 12:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

то в $pict будет лежать код картинки?
и мне останется только создать файл, запихать в него содержимое $pict,
и сохранить под именем 1.jpg

да! но только binmode при сохранении в файлик

Немного оффтоп ;)
И меня никто не поправит smile

? :

Цитата

my $document = $ua->request(HTTP::Request->new(GET => $url));

я бы поменял на:

Код


my $document = $ua->get($url);

Это сообщение отредактировал(а) nitr - 17.3.2006, 13:00

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

I love ArchLinux

DEER

Дата 17.3.2006, 13:06 (ссылка)

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

Загрузка ...

Опытный

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

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

спасибо народ!

по репе вам smile

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

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