NAME

/etc/resolv.conf

    use Net::DNS;


    $resolver = Net::DNS::Resolver->new();


    # Perform a lookup, using the searchlist if appropriate.
    $reply = $resolver->search( 'example.com' );


    # Perform a lookup, without the searchlist
    $reply = $resolver->query( 'example.com', 'MX' );


    # Perform a lookup, without pre or post-processing
    $reply = $resolver->send( 'example.com', 'MX', 'IN' );


    # Send a prebuilt query packet
    $query = Net::DNS::Packet->new( ... );
    $reply = $resolver->send( $query );


    # Use the default configuration
    $resolver = Net::DNS::Resolver->new();


    # Use my own configuration file
    $resolver = Net::DNS::Resolver->new( config_file => '/my/dns.conf' );


    # Set options in the constructor
    $resolver = Net::DNS::Resolver->new(
	nameservers => [ '2001:DB8::1', 'ns.example.com' ],
	recurse	    => 0,
	debug	    => 1
	);


    # Use my own configuration file
    $resolver = Net::DNS::Resolver->new( config_file => '/my/dns.conf' );


    # Set options in the constructor
    $resolver = Net::DNS::Resolver->new(
	nameservers => [ '2001:DB8::1', 'ns.example.com' ],
	recurse	    => 0
	);


    $resolver->print;


    $packet = $resolver->query( 'host' );
    $packet = $resolver->query( 'host.example.com' );
    $packet = $resolver->query( '2001:DB8::1' );
    $packet = $resolver->query( 'example.com', 'MX' );
    $packet = $resolver->query( 'annotation.example.com', 'TXT', 'IN' );


    $packet = $resolver->search( 'host' );
    $packet = $resolver->search( 'host.example.com' );
    $packet = $resolver->search( '2001:DB8::1' );
    $packet = $resolver->search( 'example.com', 'MX' );
    $packet = $resolver->search( 'annotation.example.com', 'TXT', 'IN' );


    $packet = $resolver->send( $query );


    $packet = $resolver->send( 'host.example.com' );
    $packet = $resolver->send( '2001:DB8::1' );
    $packet = $resolver->send( 'example.com', 'MX' );
    $packet = $resolver->send( 'annotation.example.com', 'TXT', 'IN' );


    @zone = $resolver->axfr();
    @zone = $resolver->axfr( 'example.com' );
    @zone = $resolver->axfr( 'example.com', 'IN' );


    $iterator = $resolver->axfr();
    $iterator = $resolver->axfr( 'example.com' );
    $iterator = $resolver->axfr( 'example.com', 'IN' );


    $rr = $iterator->();


    $resolver->tcp_timeout( 10 );
    $resolver->tsig( $keyfile );
    @zone = $resolver->axfr( 'example.com' );


    foreach $rr (@zone) {
	$rr->print;
    }


    $resolver->tcp_timeout( 10 );
    $resolver->tsig( $keyfile );
    $iterator = $resolver->axfr( 'example.com' );


    while ( $rr = $iterator->() ) {
	$rr->print;
    }


    $handle = $resolver->bgsend( $packet ) || die $resolver->errorstring;


    $handle = $resolver->bgsend( 'host.example.com' );
    $handle = $resolver->bgsend( '2001:DB8::1' );
    $handle = $resolver->bgsend( 'example.com', 'MX' );
    $handle = $resolver->bgsend( 'annotation.example.com', 'TXT', 'IN' );


    $handle = $resolver->bgsend( 'www.example.com' );
    $packet = $resolver->bgread($handle);


    $handle = $resolver->bgsend( 'foo.example.com' );


    while ($resolver->bgbusy($handle)) {
	...
    }


    $packet = $resolver->bgread($handle);


    print 'debug flag: ', $resolver->debug, "\n";
    $resolver->debug(1);


    print 'defnames flag: ', $resolver->defnames, "\n";
    $resolver->defnames(0);


    print 'dnsrch flag: ', $resolver->dnsrch, "\n";
    $resolver->dnsrch(0);


    $domain = $resolver->domain;
    $resolver->domain( 'domain.example' );


    print 'igntc flag: ', $resolver->igntc, "\n";
    $resolver->igntc(1);


    @nameservers = $resolver->nameservers();
    $resolver->nameservers( '2001:DB8::1', '192.0.2.1' );
    $resolver->nameservers( 'ns.domain.example.' );


    print 'Persistent TCP flag: ', $resolver->persistent_tcp, "\n";
    $resolver->persistent_tcp(1);


    print 'Persistent UDP flag: ', $resolver->persistent_udp, "\n";
    $resolver->persistent_udp(1);


    print 'sending queries to port ', $resolver->port, "\n";
    $resolver->port(9732);


    print 'recursion flag: ', $resolver->recurse, "\n";
    $resolver->recurse(0);


    print 'retrans interval: ', $resolver->retrans, "\n";
    $resolver->retrans(3);


    print 'number of tries: ', $resolver->retry, "\n";
    $resolver->retry(2);


    @searchlist = $resolver->searchlist;
    $resolver->searchlist( 'a.example', 'b.example', 'c.example' );


    $resolver->srcaddr('2001::DB8::1');


    $resolver->srcport(5353);


    print 'TCP timeout: ', $resolver->tcp_timeout, "\n";
    $resolver->tcp_timeout(10);


    print 'UDP timeout: ', $resolver->udp_timeout, "\n";
    $resolver->udp_timeout(10);


    print "udppacketsize: ", $resolver->udppacketsize, "\n";
    $resolver->udppacketsize(2048);


    print 'usevc flag: ', $resolver->usevc, "\n";
    $resolver->usevc(1);


    print 'last response was from: ', $resolver->replyfrom, "\n";


    print 'query status: ', $resolver->errorstring, "\n";


    print "dnssec flag: ", $resolver->dnssec, "\n";
    $resolver->dnssec(0);


   $resolver->dnssec(1);		# DNSSEC using default packetsize
   $resolver->udppacketsize(1250);	# lower the UDP packet size


    $resolver->dnssec(1);
    $resolver->adflag(1);
    print "authentication desired flag: ", $resolver->adflag, "\n";


    $resolver->dnssec(1);
    $resolver->cdflag(1);
    print "checking disabled flag: ", $resolver->cdflag, "\n";


    $resolver->tsig( $keyfile );


    $resolver->tsig( $keyfile,
		fudge => 60
		);


    $resolver->tsig( $tsig_rr );


    $resolver->tsig( undef );


    # Bourne Shell
    RES_NAMESERVERS="2001:DB8::1 192.0.2.1"
    export RES_NAMESERVERS


    # C Shell
    setenv RES_NAMESERVERS "2001:DB8::1 192.0.2.1"


    # Bourne Shell
    RES_SEARCHLIST="a.example.com b.example.com c.example.com"
    export RES_SEARCHLIST


    # C Shell
    setenv RES_SEARCHLIST "a.example.com b.example.com c.example.com"


    # Bourne Shell
    LOCALDOMAIN=example.com
    export LOCALDOMAIN


    # C Shell
    setenv LOCALDOMAIN example.com


    # Bourne Shell
    RES_OPTIONS="retrans:3 retry:2 inet6"
    export RES_OPTIONS


    # C Shell
    setenv RES_OPTIONS "retrans:3 retry:2 inet6"


    $resolver->nameservers( '192.0.2.1', '192.0.2.2', '2001:DB8::3' );
    $resolver->force_v4(1);
    print join ' ', $resolver->nameservers();


    192.0.2.1 192.0.2.2


    package Net::DNS::Resolver;


    my %cache;


    sub search {
	$self = shift;


	$cache{"@_"} ||= $self->SUPER::search(@_);
    }

NAME

SYNOPSIS

DESCRIPTION

METHODS

new

print

query

search

send

axfr

bgsend

bgread

bgbusy

debug

defnames

dnsrch

domain

igntc

nameserver, nameservers

persistent_tcp

persistent_udp

port

recurse

retrans

retry

searchlist

srcaddr

srcport

tcp_timeout

udp_timeout

udppacketsize

usevc

replyfrom

errorstring

dnssec

adflag

cdflag

tsig

ENVIRONMENT

RES_NAMESERVERS

RES_SEARCHLIST

LOCALDOMAIN

RES_OPTIONS

IPv4 TRANSPORT

CUSTOMISED RESOLVERS

COPYRIGHT

LICENSE

SEE ALSO