>>>perldoc Net::Ping
>>Спасибо, все получилось
>В примере, который находится в perldoc, приводятся разные состояния alive|reachable| not reachable
>и параметры функции ping($host),ping($host,2). Требуется определять состояние удаленного маршрутизатора, т.к. с
>ним случаются зависания и плюс неустойчивая связь.
>Чем отличаются состояния alive от reachable, not alive от not reachable ?
И еще небольшой вопрос: Какой смысл вкладывается в параметр timeout? Зачем, как вы считается, делается таймаут именно 2 сек ?use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
$p = Net::Ping->new("icmp");
foreach $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
$p = Net::Ping->new("tcp", 2);
while ($stop_time > time())
{
print "$host not reachable ", scalar(localtime()), "\n"
unless $p->ping($host);
sleep(300);
}
undef($p);
# For backward compatibility
print "$host is alive.\n" if pingecho($host);