Revision as of 23:24, 22 February 2021 (view source) Querfeld (talk \| contribs) (add Standard ML) ← Older edit		Revision as of 00:38, 28 June 2021 (view source) SqrtNegInf (talk \| contribs) m (→‎{{header\|Perl}}: display output properly) Newer edit →
Line 1,055: =={{header\|Perl}}== <lang perl>use feature 'say'; ~~Unfortunately IPv6 was only added to Perl 5.14, a relatively new version.~~ ~~<lang perl>require 5.014; # Older versions can't resolve IPv6 with just core Socket module~~ use Socket qw(getaddrinfo getnameinfo); ~~my ($err, @res) = getaddrinfo("www.kame.net", 0,~~ my ($err, @res) = getaddrinfo('orange.kame.net', 0, { protocol=>Socket::IPPROTO_TCP } ); die "getaddrinfo error: $err" if $err; ~~print~~say ((getnameinfo($_->{addr}, Socket::NI_NUMERICHOST)~~, "\n"~~)[1]) for @res</lang> {{out}} ~~</lang>~~ <pre>203.178.141.194 2001:200:dff:fff1:216:3eff:feb1:44d7</pre> =={{header\|Phix}}==

DNS query (view source)