12.10.2007, 16:37
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
Сообщение от DIAgen
Вот есть скриптик
Код:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
my $host = "89.108.80.80";
use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
Вот только он не чего не выводит... Библиотека Net::Ping установлена, выводит пустую стрницу и все... в чем может быть загвоздка?
тут скорее всего загвоздка в твоем хосте.. по дефолту протокол для создаваемого object ping - tcp, на него хост видать не отвечает.. можно сделать например
$p = Net::Ping->new('icmp', 10);
но тогда потребуются рут-привилегии, чтоб скрипт рабтоал.. так же пробуй поизменять таймаут - по умолчанию он 5, но у меня, например, тока с 10 более-менее нормально работает..
|
|
|