DNS query: Difference between revisions

 

Use DNS to resolve <code>www.kame.net</code> to both IPv4 and IPv6 addresses. Print these addresses.

 

=={{header|Ada}}==

{{works with|GNAT GPL|Any - package Gnat.Sockets supports only IPv4 as of Jun 2011}}

with GNAT.Sockets; use GNAT.Sockets;

 

Inet_Addr_V4 := Addresses (Host);

Put ("IPv4: " & Image (Value => Inet_Addr_V4));

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

AF_INET = 2

SYS `WSACleanup`

Output:

<pre>IPv4 address = 203.178.141.194

IPv6 address = 2001:200:DFF:FFF1:216:3EFF:FEB1:44D7</pre>

 

This solution uses <code>getaddrinfo()</code>, a standard function from RFC 3493. This code resembles an example from [http://www.openbsd.org/cgi-bin/man.cgi?query=getaddrinfo&apropos=0&sektion=3&manpath=OpenBSD+Current&arch=i386&format=html getaddrinfo(3)], the [[BSD]] manual page. Whereas the man page code connects to <code>www.kame.net</code>, this code only prints the numeric addresses.

 

#include <sys/socket.h>

#include <netdb.h> /* getaddrinfo, getnameinfo */

 

return 0;

 

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.

private string LookupDns(string s)

{

}

}

 

=={{header|Caché ObjectScript}}==

 

{

 

{

// some initialisation

// check host operating system and input parameters

}

// finished

}

 

{

}

}

 

}

{{out|Examples}}

<pre>

 

=={{header|Clojure}}==

 

(doseq [addr (InetAddress/getAllByName "www.kame.net")]

(cond

(instance? Inet4Address addr) (println "IPv4:" (.getHostAddress addr))

Output:

<pre>IPv4: 203.178.141.194

 

=={{header|CoffeeScript}}==

# runs under node.js

dns = require 'dns'

console.log 'IP6'

console.log addresses

 

=={{header|Common Lisp}}==

common lisp does not have a standard network api. the following examples are using native implementations

{{works with|SBCL}}

(sb-bsd-sockets:get-host-by-name "www.rosettacode.org"))

{{works with|CMUCL}}

(print (map 'list #'extensions:ip-string (host-entry-addr-list hostname))))

the usocket library contains a (get-hosts-by-name) function in all of its [http://trac.common-lisp.net/usocket/browser/usocket/trunk/backend backends]. unfortunately it does not expose the functions in its public interface. but since the license is MIT, it may be a suitable source to copy code for your own use.

 

{{libheader|iolib}} is a portable library that:

{{works with|SBCL}}{{works with|CMUCL}}{{works with|Clisp}}{{works with|Clozure}}

 

#/IOLIB.SOCKETS:IP/203.178.141.194

"orange.kame.net"

(("orange.kame.net" . #/IOLIB.SOCKETS:IP/203.178.141.194)

 

=={{header|D}}==

 

void main() {

auto domain = "www.kame.net", port = "80";

 

writefln("IPv4 address for %s: %s", domain, a[0].address);

 

a = getAddressInfo(domain, port, AddressFamily.INET6);

writefln("IPv6 address for %s: %s", domain, a[0].address);

<pre>IPv4 address for www.kame.net: 203.178.141.194:80

IPv6 address for www.kame.net: [2001:200:dff:fff1:216:3eff:feb1:44d7]:80</pre>

The included Indy components wrap GetAddressInfo.

 

 

{$APPTYPE CONSOLE}

lStack.Free;

end;

 

Output:

IPv4: 203.178.141.194

IPv6: 2001:200:DFF:FFF1:216:3EFF:FEB1:44D7</pre>

 

=={{header|Go}}==

 

import (

fmt.Println(err)

}

Output:

<pre>

 

=={{header|Groovy}}==

println "IPv4: ${addresses.find { it instanceof Inet4Address }?.hostAddress}"

Output:

<pre>IPv4: 203.178.141.194

IPv6: 2001:200:dff:fff1:216:3eff:feb1:44d7</pre>

 

 

import Network.Socket

main = showIPs "www.kame.net"

Output:

<pre>

</pre>

 

import java.net.Inet4Address;

import java.net.Inet6Address;

}

}

Output:

<pre>

</pre>

 

 

=={{header|Lasso}}==

The DNS lookup methods in Lasso do not support IPv6 addresses at this time, only IPv4.

 

/* NetRexx */

options replace format comments java crossref symbols nobinary

end

end ir

;Output

<pre>

IPv4 : 203.178.141.194

IPv6 : 2001:200:dff:fff1:216:3eff:feb1:44d7

</pre>

 

=={{header|OCaml}}==

 

let opts = [

Unix.AI_FAMILY ai_family;

Printf.printf " IPv4 address: %s\n" (dns_query host Unix.PF_INET);

Printf.printf " IPv6 address: %s\n" (dns_query host Unix.PF_INET6);

 

=={{header|Perl}}==

use Socket qw(getaddrinfo getnameinfo);

die "getaddrinfo error: $err" if $err;

 

 

=={{header|PHP}}==

Works for PHP5 (Windows > 5.3.0)

$ipv4_record = dns_get_record("www.kame.net",DNS_A);

$ipv6_record = dns_get_record("www.kame.net",DNS_AAAA);

print "ipv4: " . $ipv4_record[0]["ip"] . "\n";

print "ipv6: " . $ipv6_record[0]["ipv6"] . "\n";

=={{header|PicoLisp}}==

(in '(host "www.kame.net")

(while (from "address ")

Output:

<pre>-> ("203.178.141.194" "2001:200:dff:fff1:216:3eff:feb1:44d7")</pre>

 

>>> ips = set(i[4][0] for i in socket.getaddrinfo('www.kame.net', 80))

>>> for ip in ips: print ip

...

2001:200:dff:fff1:216:3eff:feb1:44d7

 

 

=={{header|Racket}}==

The following finds an IPv4 address. Currently, the API does not support returning an IPv6 address.

 

#lang racket

 

(require net/dns)

(dns-get-address "8.8.8.8" "www.kame.net")

 

 

 

'''output''' &nbsp; using the default input:

<pre>

</pre>

 

=={{header|Scheme}}==

{{works with|Guile}}

(define n (car (hostent:addr-list (gethost "www.kame.net"))))

 

(display (inet-ntoa n))(newline)

(display (inet-ntop AF_INET n))(newline)

Output:<pre>203.178.141.194

203.178.141.194

The function [http://seed7.sourceforge.net/libraries/socket.htm#numericAddress%28in_socketAddress%29 numericAddress]

is used to get the IP address of the specified host.

include "socket.s7i";

 

begin

writeln(numericAddress(inetSocketAddress("www.kame.net", 1024)));

 

Output:

203.178.141.194

</pre>

 

=={{header|Tcl}}==

{{tcllib|dns}}

{{libheader|udp}}

package require dns

 

update; # Let queries complete

}

Output:

<pre>

IPv6» 2001:200:dff:fff1:216:3eff:feb1:44d7

</pre>

 

{{omit from|PARI/GP|No network access.}}

{{omit from|ML/I}}

{{omit from|Retro}}

{{omit from|ZX Spectrum Basic|Does not support Internet Protocol.}}

 

[[Category:Internet Protocol (Multiprotocol)]]