Обсуждение статьи тематического каталога: Работа с web контентом на Perl используя LWP. (web perl url)Ссылка на текст статьи: http://www.opennet.me/base/dev/perl_lwp.txt.html
Спасибо большое за статью - очень пригодилась!
У меня виснет модем D-Link DSL-2640U, пришла идея перезагружать его, если нет инета. Вот скрипт, который это делает:
#! C:/perl64/bin/perl
my $url = 'http://ya.ru';
my $reseturl = 'http://30.30.30.1/rebootinfo.cgi';
use LWP::Simple;
my $content = get $url;
$content ? print "We'r online\n" : get $reseturl;
Подскажите, плиз, кто может. Есть скрипт на perl, использующий функцию get($url) модуля LWP::Useragent. Скрипт собирает данные с одного веб-сайта. Напрямую (дома через ADSL) работает, а через файрволл (на работе) зависает. Вероятно, нет доступа для какого-то порта. Может кто знает, какой порт надо открыть на файрволле, чтобы это скрипт нормально работал?
Спасибо за внимание.