DNS query: Difference between revisions
→{{header|Perl 6}}: Add Perl 6 example
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
|||
Line 683:
print getnameinfo($_->{addr}, Socket::NI_NUMERICHOST), "\n" for @res
</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|2017.01}}
<lang perl6>use Net::DNS;
my $resolver = Net::DNS.new('8.8.8.8');
my $ip4 = $resolver.lookup('A', 'orange.kame.net');
my $ip6 = $resolver.lookup('AAAA', 'orange.kame.net');
say $ip4[0].octets.join: '.';
say $ip6[0].octets.».fmt("%.2X").join.comb(4).join: ':';</lang>
{{out}}
<pre>203.178.141.194
2001:0200:0dff:fff1:0216:3eff:feb1:44d7</pre>
=={{header|PHP}}==
| |||