DNS query: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 382:
return 0;
}</lang>
=={{header|C sharp}}==▼
Implementation takes a host name string as a parameter, and returns the IP addresses in a comma-delimited string. Note that a failed lookup throws a SocketException. ▼
<lang csharp>▼
private string LookupDns(string s)▼
{▼
try▼
{▼
System.Net.IPHostEntry ip = System.Net.Dns.GetHostEntry(s);▼
string result = ip.AddressList[0].ToString();▼
for (int i = 1; i < ip.AddressList.Length; ++i)▼
result += ", " + ip.AddressList[i].ToString();▼
return result;▼
}▼
catch (System.Net.Sockets.SocketException se)▼
{▼
return se.Message;▼
}▼
}▼
</lang>▼
=={{header|C++}}==
Line 406 ⟶ 429:
return rc;
}
▲</lang>
▲=={{header|C sharp}}==
▲Implementation takes a host name string as a parameter, and returns the IP addresses in a comma-delimited string. Note that a failed lookup throws a SocketException.
▲<lang csharp>
▲ private string LookupDns(string s)
▲ {
▲ try
▲ {
▲ System.Net.IPHostEntry ip = System.Net.Dns.GetHostEntry(s);
▲ string result = ip.AddressList[0].ToString();
▲ for (int i = 1; i < ip.AddressList.Length; ++i)
▲ result += ", " + ip.AddressList[i].ToString();
▲ return result;
▲ }
▲ catch (System.Net.Sockets.SocketException se)
▲ {
▲ return se.Message;
▲ }
▲ }
</lang>
Line 831:
{ address: '2001:200:dff:fff1:216:3eff:feb1:44d7', family: 6 } ]
</pre>
=={{header|Julia}}==
Line 903 ⟶ 902:
inet6: 2001:200:dff:fff1:216:3eff:feb1:44d7
</pre>
=={{header|Neko}}==
Line 1,015 ⟶ 1,013:
203.178.141.194
</pre>
=={{header|Objeck}}==
<lang objeck>use System.IO.Net;
Line 1,066 ⟶ 1,065:
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|Phix}}==
Line 1,361 ⟶ 1,344:
(dns-get-address "8.8.8.8" "www.kame.net")
</lang>
(formerly 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|REXX}}==
| |||