Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: tinyDNS deconstruct.

by atcroft (Abbot)
on Feb 15, 2018 at 19:45 UTC ( #1209253=note: print w/replies, xml ) Need Help??


in reply to tinyDNS deconstruct.

I know you may have your reasons for looking at the record in a particular way, but why not use a module that is made for doing this, Net::DNS?

Below was a quick example of using Net::DNS to retrieve similar information:

#!/usr/bin/perl use strict; use warnings; use Net::DNS; my $res = Net::DNS::Resolver->new; my $target; # Single-target test $target = q{entrust.net}; # To run from command-line, uncomment loop below # foreach my $target ( @ARGV ) { my $reply = $res->query( q{entrust.net}, q{CAA}, ); if ( $reply ) { foreach my $rr ( $reply->answer ) { # Complete response $rr->print; # Individual response components print qq{Owner: }, $rr->owner, qq{\n}; print qq{Type: }, $rr->type, qq{\n}; print qq{Class: }, $rr->class, qq{\n}; print qq{TTL: }, $rr->ttl, qq{\n}; # RR-specific data as string print qq{RDstring: }, $rr->rdstring, qq{\n}; # RR-specific data components print qq{Flags: }, $rr->flags, qq{\n}; print qq{Critical: }, $rr->critical, qq{\n}; print qq{Tag: }, $rr->tag, qq{\n}; print qq{Value: }, $rr->value, qq{\n}; print qq{\n}; } else { warn qq{query failed: }, $res->errorstring, qq{\n}; } } }

Output:

entrust.net. 6168 IN CAA 0 iodef mailto:ecs.support\@en +trustdatacard.com Owner: entrust.net Type: CAA Class: IN TTL: 6168 RDstring: 0 iodef mailto:ecs.support\@entrustdatacard.com Flags: 0 Critical: 0 Tag: iodef Value: mailto:ecs.support@entrustdatacard.com entrust.net. 6168 IN CAA 0 issue entrust.net Owner: entrust.net Type: CAA Class: IN TTL: 6168 RDstring: 0 issue entrust.net Flags: 0 Critical: 0 Tag: issue Value: entrust.net

Hope that helps.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1209253]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2020-09-30 10:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (160 votes). Check out past polls.

    Notices?