Net::DNS::Resolver::Recurse - Perform recursive dns lookups
use Net::DNS::Resolver::Recurse; my $res = Net::DNS::Resolver::Recurse->new;
This module is a sub class of Net::DNS::Resolver. So the methods for Net::DNS::Resolver still work for this module as well. There are just a couple methods added:
Initialize the hint servers. Recursive queries need a starting name server to work off of. This method takes a list of IP addresses to use as the starting servers. These name servers should be authoritative for the root (.) zone.
$res->hints(@ips);
If no hints are passed, the default nameserver is asked for the hints. Normally these IPs can be obtained from the following location:
ftp://ftp.internic.net/domain/named.root =head2 recursion_callback
This method is takes a code reference, which is then invoked each time a
packet is received during the recursive lookup. For example to emulate
dig's +trace function:
$res->recursion_callback(sub {
my $packet = shift;
$_->print for $packet->additional;
printf(";; Received %d bytes from %s\n\n",
$packet->answersize,
$packet->answerfrom
);
});
This method is much like the normal query() method except it disables the recurse flag in the packet and explicitly performs the recursion.
$packet = $res->query_dorecursion( "www.netscape.com.", "A");
Rob Brown, bbb@cpan.org
Copyright (c) 2002, Rob Brown. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
$Id: Recurse.pm 102 2004-08-12 05:16:06Z ctriv $