File: example_recurse.pl

package info (click to toggle)
libnet-dns-perl 0.63-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 836 kB
  • ctags: 425
  • sloc: perl: 6,796; sh: 109; ansic: 104; makefile: 59
file content (11 lines) | stat: -rwxr-xr-x 339 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/local/bin/perl -w

# Example usage for Net::DNS::Resolver::Recurse
# Performs recursion for a query.

use Net::DNS::Resolver::Recurse;
my $res = Net::DNS::Resolver::Recurse->new;
$res->debug(1);
$res->hints("198.41.0.4"); # A.ROOT-SERVER.NET.
my $packet = $res->query_dorecursion("www.rob.com.au.", "A");
$packet && $packet->print;