ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     17 Aug 2002  15:57:39
 To : Igor Alferov
 Subject : Re: Подскажите как ping сделать ...
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Igor Alferov.
 
  IA>>> Меня интересовало как можно сделать такой ping самому ... т.е.
  IA>>> вручную пакет собрать и запулить его кудыть надо!! ... Может кто
  IA>>> это подскажет?
  AC>> Почитать толстую книжку про TCP/IP и/или исходники nmap. К тому
  AC>> времени, как научишься, детство в соответствующем месте играть, скорее
  AC>> всего, уже перестанет...
 
 IA> Мда ... я думал мне тут помогу ... а тут ....
 IA> Вообщем написал я ... вот код для тех кому это понадобиться:
 
 IA>  #! /usr/bin/perl
 IA>  use strict;
 IA>  use Net::Ping;
 IA>  my $host = $ARGV[0];
 IA>  my $p = Net::Ping -> new("icmp");
 IA>  if ($p -> ping($host) )
 IA>  {
 IA>   while ($p -> ping($host) )
 IA>   {
 IA>    print "$host is alive\n";
 IA>   }
 IA>  }
 IA>  else
 IA>  {
 IA>   print "$host is not alive\n";
 IA>  }
 
 IA> Делов-то .. на 2 мин ...  и ни что не сказал .... ;)
 
 Это-то понятно. Только при чем тут CGI? Оно же иначе как от рута только с
 использованием /bin/ping работать сможет. Который того, что ты хотел, не
 делает принципиально. Хотя пинговать - пингует...
 
 -- 
 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)
 
 

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