OpenForum RSS: Раздел полезных советов: Как в perl выполнить DNS преобразование IP в имя и наоборот. https://www.opennet.ru/openforum/vsluhforumID3/5584.html Из IP в имя:<br> use Socket; <br> my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET); <br><br>Из хоста в IP:<br> use Socket; <br> my $ip = inet_ntoa((gethostbyname("www.test.ru"))[4]);<br><br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/844.shtml<br> Как в perl выполнить DNS преобразование IP в имя и наоборот. (Кирилл_Н) https://www.opennet.ru/openforum/vsluhforumID3/5584.html#2 Thu, 12 Aug 2010 09:25:07 GMT use Net::DNS;<br> my $res = Net::DNS::Resolver-&gt;new;<br> my $query = $res-&gt;search("www.test.ru");<br><br> if ($query)<br> {<br> foreach my $rr ($query-&gt;answer)<br> {<br> next unless $rr-&gt;type eq "A";<br> print $rr-&gt;address, "\n";<br> }<br> }<br><br>Возвращает не один адрес, а все указанные для этого ДНС имени<br> Как в perl выполнить DNS преобразование IP в имя и наоборот. (Andrey) https://www.opennet.ru/openforum/vsluhforumID3/5584.html#1 Wed, 04 May 2005 13:34:24 GMT use Net::hostent;<br>