ipv6-to-hostname.pl

hostname-to-ipv6.pl

#!/bin/perl

use Socket ();

my $host = "UHN3ttm1zsza0000.openstacklocal";

my ($err, @addrs) = Socket::getaddrinfo($host, 0, {'protocol' => Socket::IPPROTO_TCP, 'family' => Socket::AF_INET6});
die $err if $err;

my ($err, $host) = Socket::getnameinfo($addrs[0]->{addr}, Socket::NI_NUMERICHOST);
die $err if $err;

print "$host\n";

ipv6-to-hostname.pl

#!/bin/perl

use Socket ();

my $ipv6_addr = "fc00::a:1:0:0:1";

my ($err, @addrs) = Socket::getaddrinfo($ipv6_addr, 0, {'family' => Socket::AF_INET6});
die $err if $err;

my ($err, $host) = Socket::getnameinfo($addrs[0]->{addr});
die $err if $err;

print "$host\n";