discovery.pl

Revision 4, 219 bytes (checked in by jroth2, 2 years ago)
added service discovery example
Property svn:executable set to ``*

Line
1	#!/usr/bin/perl
2	use Net::DNS;
3
4	my $res = new Net::DNS::Resolver();
5	my $query = $res->search("_kerberos._udp.acm.uiuc.edu", "SRV");
6
7	die "error" if not $query;
8
9	for my $rr ($query->answer) {
10	print $rr->target, "\n";
11	}

Note: See TracBrowser for help on using the browser.