Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
вылечилось установкой последнего активперла. 09.06.05 10:18 Число просмотров: 1920
Автор: Vorga Статус: Незарегистрированный пользователь
|
|
<programming>
|
[Perl] Net::Ping and LWP::UserAgent 01.06.05 14:37
Автор: Vorga Статус: Незарегистрированный пользователь Отредактировано 01.06.05 14:44 Количество правок: 1
|
есть код:
#! c:\perl\bin\perl -w
use strict;
use LWP::UserAgent;
use Net::Ping;
sub geturl
{
my $ua=LWP::UserAgent->new();
my $resp = $ua->get('http://localhost/');
my $content=$resp->content;
print $content."\n";
};
sub pingurl
{
my $z = Net::Ping->new();
if ($z->ping('127.0.0.1')) {print "ping ok.\n"}
else {print "ping fail.\n"}
}
pingurl();
geturl();
pingurl();
первый pingurl работает, на втором все обваливается... никак не могу понять где бяка...
выдается ошибка - Bizarre SvTYPE [180] at c:/perl/lib/net/ping.pm 429
причем если убрать my $resp = $ua->get('http://localhost/'); то ошибки не возникает...
|
|
вылечилось установкой последнего активперла. 09.06.05 10:18
Автор: Vorga Статус: Незарегистрированный пользователь
|
|
|
|