ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     18 Aug 2002  20:24:39
 To : Valentin Nechayev
 Subject : Re: Подскажите как pin g сделать ...
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Valentin Nechayev.
 
 IA>>>  my $p = Net::Ping -> new("icmp");
 IA>>>  if ($p -> ping($host) )
 AC>> Это-то понятно. Только при чем тут CGI? Оно же иначе как от рута только с
 AC>> использованием /bin/ping работать сможет. Который того, что ты хотел, не
 AC>> делает принципиально. Хотя пинговать - пингует...
 
 VN> $n = qx( ping -c 5 $host | fgrep ttl | fgrep time | wc -l );
 VN> print ( $n ? "host is alive" : "host is dead" ), "\n";
 
 Еще один любитель не читать оригинальных писем. В оригинале гражданин просил с
 заданием частоты и не дожидаясь ответа.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор