VPF::Загрузка HTML контента - Форум программистов

Muchenik

Дата 17.5.2006, 17:03 (ссылка)

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

Загрузка ...

Бывалый

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

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

Привет. Мужики, есть что то в perl для загрузки HTML контента??? Типа юниксового wget.

nitr

Дата 17.5.2006, 17:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

)

так и делай

Код

#!/usr/bin/perl
use LWP::UserAgent;

my $filename = 'new_file';
my $ua = LWP::UserAgent->new;
open my $fh, "> $filename" or die "Error - $!";
#binmode $fh; #для файликов бинарных :)!!! ЕСЛИ НАДО, чисто содержимое - текст ;) т.е. ненадо ;)
print $fh $ua->get('http://my_url')->content;
close $fh;

можешь просто:

Код

#!/usr/bin/perl
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $content = $ua->get('http://my_url')->content;

и делай с $content что хошь!

Это сообщение отредактировал(а) nitr - 17.5.2006, 17:16

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

I love ArchLinux

nitr

Дата 17.5.2006, 17:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вот быстро набросал:

Код

#!/usr/bin/perl
use LWP::UserAgent;

@ARGV or die "Usage: perl get.pl [url]\n";
my $url = shift;
my $ua = LWP::UserAgent->new;
my $filename = $1 if $url =~ m{[http|ftp]://\S+/(\S+)};
open my $fh, "> $filename" or die "Error - $!";
binmode $fh;
print "Start getting $filename...\n";
print $fh $ua->get($url)->content;
close $fh;

Доведи до ума... или поищи всё готовое на cpan.org, woweb.ru, sources.ru и т.д. smile

Добавлено @ 17:39
подходит для закачки файликов smile

Добавлено @ 17:40
Кстати, скриптик назови get.pl хе хе

Добавлено @ 17:45
можно добавить параметр [file]
или между строками 7 и 8 добавить

Код


...
$filename = 'content' unless $filename; #имя файла по умолчанию
...

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

I love ArchLinux

sharq

Дата 17.5.2006, 17:56 (ссылка)

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

Загрузка ...

Perl Liker

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

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

Конечно, в плане практики самому писать нужно.
Но искать готовые решения на

Цитата(nitr @ 17.5.2006, 18:38

)

woweb.ru, sources.ru и т.д. smile

не верно.

В стандартный дистрибутив perl входят следующие скрипты (искать в разделе Progarms, выше Modules, если смотреть index.html):

Цитата

* lwp-download
* lwp-mirror
* lwp-request
* lwp-rget

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

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

nitr

Дата 17.5.2006, 20:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(sharq @ 17.5.2006, 17:56

)

Но искать готовые решения на
Цитата(nitr @ 17.5.2006, 18:38 Найти цитируемый пост)
woweb.ru, sources.ru и т.д. smile

не верно.

почему же, можно просто просмотреть готовые решения smile

и их поправить под себя, что-то черпнуть оттуда... многие люди книг не читают... ну есть такие smile

и документацию тоже ;)

Я лично никогда не искал, но говорят помогает smile

что ж новичку - я предложил ОН САМ ВЫБИРАЕТ ЧТО ЕМУ ДЕЛАТЬ ;)

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

I love ArchLinux

Muchenik

Дата 17.5.2006, 20:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Да все правильно. Спасибо всем.

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