ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Alferov                         2:5015/10.15   17 Aug 2002  13:33:36
 To : Artem Chuprina
 Subject : Подскажите как ping сделать ...
 -------------------------------------------------------------------------------- 
 

  IA>> Меня интересовало как можно сделать такой ping самому ... т.е.
  IA>> вручную пакет собрать и запулить его кудыть надо!! ... Может кто
  IA>> это подскажет?
  AC> Почитать толстую книжку про TCP/IP и/или исходники nmap. К тому
  AC> времени, как научишься, детство в соответствующем месте играть, скорее
  AC> всего, уже перестанет...
 
 Мда ... я думал мне тут помогу ... а тут ....
 Вообщем написал я ... вот код для тех кому это понадобиться:
 
  #! /usr/bin/perl
  use strict;
  use Net::Ping;
  my $host = $ARGV[0];
  my $p = Net::Ping -> new("icmp");
  if ($p -> ping($host) )
  {
   while ($p -> ping($host) )
   {
    print "$host is alive\n";
   }
  }
  else
  {
   print "$host is not alive\n";
  }
 
 Делов-то .. на 2 мин ...  и ни что не сказал .... ;)
 
 Igor
 
 --- [email: idol@mts-nn.ru]   [uin: 142470329]
  * Origin: Hе стоит отчаиваться - безумие достижимо ... (2:5015/10.15)
 
 

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