|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : oleg@vast.spb.su 2:5020/400 28 Feb 2002 14:07:10
To : All
Subject : getNETbyaddr - как использовать?
--------------------------------------------------------------------------------
Hi, All!
Прошу помощи коллективного разума.
Потребовалось узнать имя сети по IP.
Имя хоста по 4-мерному адресу выдается "на ура", аналогичный вызов для сети
молчит.
Hиже приведен пример.
===========кусь тут ==========================
#!/usr/bin/perl
use IO::Socket;
$iphost = "217.195.80.74";
$ipnet = "217.195.80";
($hname,$haliases,$haddrtype,$hlength,@haddrs) =
gethostbyaddr(inet_aton($iphost),AF_INET);
print "HOST:\n name=$hname aliases=$haliases addrtype=$haddrtype \n";
($nname,$naliases,$ntype,$nnet) =
getnetbyaddr (inet_aton($ipnet),AF_INET);
print "NET: \n name=$nname aliases=$naliases type=$ntype net=$nnet \n";
===========кусь тут ==========================
Олег Архангельский (ex: 2:5030/198.14)
--- ifmail v.2.15dev5
* Origin: PeterStar News Site (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
