Subject: | Nothing works? |
This looks like a really great module. Unfortunately atm I don't think it works.
use Net::DNS::Dig;
my $dig = Net::DNS::Dig->new();
print $dig->for('duckduckgo.com')->sprintf;
Here is the output I get:
; <<>> Net::DNS::Dig 0.12 <<>> -t
;;
;; Got answer.
;; ->>HEADER<<- opcode: , status: , id:
;; flags:; QUERY: , ANSWER: , AUTHORITY: , ADDITIONAL:
;; Query time: 3 ms
;; SERVER: 172.16.0.23# 53(172.16.0.23)
;; WHEN: Wed Nov 19 10:37:50 2014
;; MSG SIZE rcvd: 96 -- XFR size: 5 records
It does appear to be getting a response from the name servers because I can see data in there. For example, the ttl. I wonder if its an encoding issue?
use DDP; p $dig->rdata('A');
[
'6,
'k=',
'�Hj4',
'�HsV'
]
Thanks,
Kablamo