For my domain, I retrieve its DNS A-records from a local nameserver using
/usr/bin/dig -t A @192.0.2.1 -k /etc/named/keys/T.key +noadditional
+dnssec +multiline +norecurs example.com
In my perl script, I can do the same using system()
system( "/usr/bin/dig", "-t", "A", "\@192.0.2.1", "-k",
"/etc/named/keys/T.key", "+noadditional", "+multiline", "+norecurs",
"example.com" );
which lists all the keys to console.
I want to get at the same info using Perl, with the results in objects that I
can extract data from and assign to variables.
IIUC, Net::DNS is the right tool.
Reading the docs I don't understand how I'd pass all those bind dig-specific
arguments to Net::DNS.
What's the right syntax / usage for that query in Net::DNS?
AJ
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
