The OpenNET Project: Как в perl выполнить DNS преобразование IP в имя и наоборот.

Как в 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 Ключи: perl, socket / Лицензия: CC-BY
Раздел: Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение

[ RSS ]

1, Andrey (??), 17:34, 04/05/2005 [ответить] [к модератору]	+/–
use Net::hostent;

  use Net::DNS;
  my $res   = Net::DNS::Resolver->new;
  my $query = $res->search("www.test.ru");

  if ($query)
  {
     foreach my $rr ($query->answer)
     {
        next unless $rr->type eq "A";
        print $rr->address, "\n";
     }
  }

Возвращает не один адрес, а все указанные для этого ДНС имени

Добавить комментарий