Blame demo/example_recurse.pl
|
Packit Service |
ab31fe |
#!/usr/bin/perl -w
|
|
Packit Service |
f6e53a |
|
|
Packit Service |
f6e53a |
# Example usage for Net::DNS::Resolver::Recurse
|
|
Packit Service |
f6e53a |
# Performs recursion for a query.
|
|
Packit Service |
f6e53a |
|
|
Packit Service |
f6e53a |
use Net::DNS::Resolver::Recurse;
|
|
Packit Service |
f6e53a |
my $res = Net::DNS::Resolver::Recurse->new;
|
|
Packit Service |
f6e53a |
$res->debug(1);
|
|
Packit Service |
f6e53a |
$res->hints("198.41.0.4"); # A.ROOT-SERVER.NET.
|
|
Packit Service |
f6e53a |
my $packet = $res->query_dorecursion("www.rob.com.au.", "A");
|
|
Packit Service |
f6e53a |
$packet && $packet->print;
|