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