Как в perl выполнить DNS преобразование IP в имя и наоборот. |
[исправить] |
Из IP в имя:
use Socket;
my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET);
Из хоста в IP:
use Socket;
my $ip = inet_ntoa((gethostbyname("www.test.ru"))[4]);
|
|
|
04.05.2005
|
Раздел: Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl |