есть код:
#! 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 Статус: Незарегистрированный пользователь
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
