DNS query: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
Line 382: Line 382:
return 0;
return 0;
}</lang>
}</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++}}==
=={{header|C++}}==
Line 406: Line 429:
return rc;
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>
</lang>


Line 831: Line 831:
{ address: '2001:200:dff:fff1:216:3eff:feb1:44d7', family: 6 } ]
{ address: '2001:200:dff:fff1:216:3eff:feb1:44d7', family: 6 } ]
</pre>
</pre>



=={{header|Julia}}==
=={{header|Julia}}==
Line 903: Line 902:
inet6: 2001:200:dff:fff1:216:3eff:feb1:44d7
inet6: 2001:200:dff:fff1:216:3eff:feb1:44d7
</pre>
</pre>



=={{header|Neko}}==
=={{header|Neko}}==
Line 1,015: Line 1,013:
203.178.141.194
203.178.141.194
</pre>
</pre>

=={{header|Objeck}}==
=={{header|Objeck}}==
<lang objeck>use System.IO.Net;
<lang objeck>use System.IO.Net;
Line 1,066: Line 1,065:
print getnameinfo($_->{addr}, Socket::NI_NUMERICHOST), "\n" for @res
print getnameinfo($_->{addr}, Socket::NI_NUMERICHOST), "\n" for @res
</lang>
</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}}==
=={{header|Phix}}==
Line 1,361: Line 1,344:
(dns-get-address "8.8.8.8" "www.kame.net")
(dns-get-address "8.8.8.8" "www.kame.net")
</lang>
</lang>

=={{header|Raku}}==
(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}}==
=={{header|REXX}}==