Вообщем такая ситуевина, нужно пинговать несколько определенных хостов в сети.
Есть код:
if(&ping($host)){
print "Yes\\n";
}else{
print "No\\n";}
sub ping($host)
{
use Net::Ping;
$p=Net::Ping->new();
$p->hires();
($ret, $duration, $ip) = $p->ping($host, 5.5);
if($ret)
{
for ($i=0;$i<=$num_times;$i++)
{
$p->hires();
($ret, $duration, $ip) = $p->ping($host, 5.5);
$ping_time+=$duration;
}
$ping_time=$ping_time/$i;
$p->close();
return 1;
}else {
$p->close();
return 0;
}
так вот при $host=\'реально существующий хост\' функция возвращает 0, в обратном случае тоже самое.
Второй вопрос:
при ответе пингуемого хоста время пинга $ping_time имеет очень жуткие значения, т.е. в 3-5 раз больше чем при пинге системной командой.
Помогите плиз, люди добрые, может где-то ошибочка или недоглядел чего.
И еще вопрос
, как с помощью перла определить тип прокси сервера(SOCKS4, SOCKS4a, SOCKS5), буду сильно признателен если подкините кусочек кода или ссылку на литературу