ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     28 Feb 2002  15:00:30
 To : ""
 Subject : Re: getNETbyaddr - как использовать?
 -------------------------------------------------------------------------------- 
 

 oleg> Прошу помощи коллективного разума.
 
 oleg> Потребовалось узнать имя сети по IP.
 oleg> Имя хоста по 4-мерному адресу выдается "на ура", аналогичный вызов для
 oleg> сети молчит. Hиже приведен пример.
 
 oleg> ===========кусь тут ==========================
 oleg> #!/usr/bin/perl
 
 #!/usr/bin/perl -w
 
 Тогда молчать перестанет. Толку, правда, немного - gethostbyaddr результат
 inet_aton устраивает, а getnetbyaddr - нет. Спецификация одинаковая.
 
 oleg> use IO::Socket;
 
 oleg> $iphost = "217.195.80.74";
 oleg> $ipnet  = "217.195.80";
 
 oleg> ($hname,$haliases,$haddrtype,$hlength,@haddrs) =
 oleg>                          gethostbyaddr(inet_aton($iphost),AF_INET);
 oleg> print "HOST:\n name=$hname aliases=$haliases addrtype=$haddrtype   \n";
 
 oleg> ($nname,$naliases,$ntype,$nnet) =
 oleg>                          getnetbyaddr (inet_aton($ipnet),AF_INET);
 oleg> print "NET: \n name=$nname aliases=$naliases type=$ntype net=$nnet \n";
 oleg> ===========кусь тут ==========================
 
 oleg> Олег Архангельский (ex: 2:5030/198.14)
 
 -- 
 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)
 
 

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

Тема:    Автор:    Дата:    getNETbyaddr - как использовать?   oleg@vast.spb.su   28 Feb 2002 14:07:10   Re: getNETbyaddr - как использовать?   Artem Chuprina   28 Feb 2002 15:00:30