DNS query: Difference between revisions

m (→‎{{header|FutureBasic}}: Inserted code indents)
(→‎{{header|TXRl}}: New section)
Line 1,561:
</pre>
 
=={{header|TXR}}==
<pre>This is the TXR Lisp interactive listener of TXR 282.
Quit with :quit or Ctrl-D on an empty line. Ctrl-X ? for cheatsheet.
TXR's no-spray organic production means every bug is carefully removed by hand.
1> (uniq (collect-each ((addr (getaddrinfo "www.kame.net")))
(match-case addr
(@(struct sockaddr-in addr @a) (str-inaddr a))
(@(struct sockaddr-in6 addr @a) (str-in6addr a)))))
("210.155.141.200" "2001:2f:8800:226:2dff:fe0b:4311" "2001:2f0:0:880:1:1")</pre>
=={{header|UNIX Shell}}==
===Using dig===
543

edits