도메인 이름에서 Perl로 된 IPv6 주소

Question

도메인 이름을 IP 주소로 변환하려면 다음과 같은 Perl 코드가 있어야합니다. 그것은 IPv4에서 잘 작동합니다.

$host = "example.com"; 
$ip_address = join('.', unpack('C4',(gethostbyname($host))[4])); 

그러나 "ipv6.google.com"과 같은 IPv6 전용 도메인 이름 인 경우 작동하지 않습니다.

IPv6 IP 주소를 얻기 위해 한 줄의 코드 (CORE 라이브러리 선호)를 얻으려면 어떻게해야합니까?

$host = "ipv6.google.com"; 
$ip_address = ??? 

Answer 1

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; 
} 

을 펄, 같은 기능 CPAN의 Socket::GetAddrInfo에서 사용할 수 있습니다.

Answer 2

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