У меня есть следующий код Perl для перевода доменного имени в IP-адрес. Он отлично работает в IPv4.
$host = "example.com";
$ip_address = join('.', unpack('C4',(gethostbyname($host))[4]));
Однако это не работает, если это доменное имя только для IPv6, например «ipv6.google.com».
Как я могу получить одну строку кода (предпочитаю библиотеку CORE) для получения IP-адреса IPv6?
$host = "ipv6.google.com";
$ip_address = ???
В версии 5.14 и выше вы можете использовать ядро Socket:
use 5.014;
use warnings;
use Socket ();
# protocol and family are optional and restrict the addresses returned
my ( $err, @addrs ) = Socket::getaddrinfo( $ARGV[0], 0, { 'protocol' => Socket::IPPROTO_TCP, 'family' => Socket::AF_INET6 } );
die $err if $err;
for my $addr (@addrs) {
my ( $err, $host ) = Socket::getnameinfo( $addr->{addr}, Socket::NI_NUMERICHOST );
if ($err) { warn $err; next }
say $host;
}
Для более ранних версий perls те же функции доступны по ссылке Socket::GetAddrInfo на CPAN.
cpan Socket)
- person ikegami; 04.07.2014
Socket, а затем назвали все функции и константы полностью определенными? Обычно было бы лучше импортировать необходимые символы.
- person LeoNerd; 05.07.2014
Net::DNS также может помочь вам:
#!/usr/bin/perl -w
use strict;
use warnings;
use Net::DNS;
my $res = Net::DNS::Resolver->new;
my $query = $res->query("ipv6.google.com", "AAAA")
or die "query failed: ", $res->errorstring;
foreach my $rr (grep { $_->type eq 'AAAA' } $query->answer) {
print $rr->address, "\n";
}
Выходы:
2607:f8b0:4010:801:0:0:0:1005
getaddrinfo) записи в файле хоста будут скрыты.
- person ikegami; 04.07.2014
getaddrinfo. Смотрите другой ответ.
- person LeoNerd; 05.07.2014
