inet_ntoa для ipv6 в perl

Question

Я новичок в Perl, и я пытаюсь преобразовать IPv6-адрес в сетевом формате в формат строки ASCII. Я мог бы сделать это для адреса ipv4, используя функцию "inet_ntoa" в модуле "Socket". Как сделать это для адреса ipv6 без установки каких-либо новых модулей?

Answer 1

Использование inet_ntop в соответствии с рекомендациями Perldoc Socket:

$ 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.