inet_ntoa 用于 perl 中的 ipv6

inet_ntoa for ipv6 in perl

我是 perl 的新手,我正在尝试将网络格式的 ipv6 地址转换为 ascii 字符串格式。我可以使用 "Socket" 模块中的 "inet_ntoa" 函数为 ipv4 地址执行此操作。如何在不安装任何新模块的情况下为 ipv6 地址执行此操作?

按照 perldoc Socket 的建议使用 inet_ntop:

$string = inet_ntoa $ip_address

   Takes a packed binary address structure such as returned by
   unpack_sockaddr_in() (or a v-string representing the four octets of the
   IPv4 address in network order) and translates it into a string of the form
   "d.d.d.d" where the "d"s are numbers less than 256 (the normal
   human-readable four dotted number notation for Internet addresses).

   This IPv4-only function is provided largely for legacy reasons.
   Newly-written code should use getnameinfo() or inet_ntop() instead for
   IPv6 support.

$string = inet_ntop $family, $address

   Takes an address family and a packed binary address structure and
   translates it into a human-readable textual representation of the address;
   typically in "d.d.d.d" form for "AF_INET" or "hhhh:hhhh::hhhh" form for
   "AF_INET6".
   See also getnameinfo() for a more powerful and flexible function to turn
   socket addresses into human-readable textual representations.