The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Как в 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;
     
  • 2, Кирилл_Н (ok), 13:25, 12/08/2010 [ответить]  
  • +/
      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";
         }
      }

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

     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Спонсоры:
    Слёрм
    Inferno Solutions
    Hosting by Ihor
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2019 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру