Обратный поиск DNS в Perl

Question

Как выполнить обратный поиск в DNS, то есть как разрешить IP-адрес для его имени хоста DNS в Perl?

Answer 1

Если вам нужна более подробная информация о DNS, используйте модуль Net :: DNS , вот пример:

use Net::DNS;
my $res = Net::DNS::Resolver->new;

# create the reverse lookup DNS name (note that the octets in the IP address need to be reversed).
my $IP = "209.85.173.103";
my $target_IP = join('.', reverse split(/\./, $IP)).".in-addr.arpa";

my $query = $res->query("$target_IP", "PTR");

if ($query) {
  foreach my $rr ($query->answer) {
    next unless $rr->type eq "PTR";
    print $rr->rdatastr, "\n";
  }
} else {
  warn "query failed: ", $res->errorstring, "\n";
}

Оригинальный источник EliteHackers.info , более подробная информация также там.

Answer 2

gethostbyaddr и подобные звонки. Смотри http://perldoc.perl.org/functions/gethostbyaddr.html

Answer 3

use Socket;
$iaddr = inet_aton("127.0.0.1"); # or whatever address
$name  = gethostbyaddr($iaddr, AF_INET);

Answer 4

perl -MSocket -E 'say scalar gethostbyaddr(inet_aton("69.89.27.250"), AF_INET)'

Возвращает: Не удается найти терминатор строки "'" где-либо до EOF в строке -e 1.

perl -MSocket -E "say scalar gethostbyaddr(inet_aton(\"69.89.27.250\"), AF_INET)"

Возвращает: box250.bluehost.com

Мне нужно изменить строку, чтобы использовать двойные кавычки, а затем экранировать кавычки вокруг IP-адреса

Answer 5

один вкладыш:

perl -MSocket -E 'say scalar gethostbyaddr(inet_aton("79.81.152.79"), AF_INET)'

Answer 6

Если gethostbyaddr не соответствует вашим потребностям, Net :: DNS более гибок.

Answer 7

Возможно, существует более простой способ, но для IPv4, если вы можете выполнять обычный поиск DNS, вы всегда можете создать обратный запрос самостоятельно. Для получения IPv4-адреса A.B.C.D найдите все записи PTR на D.C.B.A.in-addr.arpa. Для IPv6 вы берете 128 гексов, переворачиваете их и добавляете ipv6.arpa. и сделать то же самое.

Answer 8

Это может быть полезно ...

$ip = "XXX.XXX.XXX.XXX" # IPV4 address.
my @numbers = split (/\./, $ip);
if (scalar(@numbers) != 4)
{
    print "$ip is not a valid IP address.\n";
    next;
}
my $ip_addr = pack("C4", @numbers);
# First element of the array returned by gethostbyaddr is host name.
my ($name) = (gethostbyaddr($ip_addr, 2))[0];