подскажите плиз
в докум. perl для знатока это примитв будет.
Net::Ping - check a remote host for reachability
там есть хороший пример
Код: Выделить всё
$p = Net::Ping->new("icmp");
$p->bind($my_addr); # Specify source interface of pings
foreach $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
задача к примеру если google.ru не пингуется
то должно выполниться
`cp test1 test`
если пингуеться то ничего не происходит.