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, Кирилл_Н, 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:      
    Заголовок:
    Текст:



      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor