Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Net::Ping and LWP::UserAgent 01.06.05 14:37 Число просмотров: 2369
Автор: 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/'); то ошибки не возникает...
|
- [Perl] Net::Ping and LWP::UserAgent - Vorga 01.06.05 14:37 [2369]
|
|
|