Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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{}; # To run from command-line, uncomment loop below # foreach my $target ( @ARGV ) { my $reply = $res->query( q{}, 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: 6168 IN CAA 0 iodef\@en Owner: Type: CAA Class: IN TTL: 6168 RDstring: 0 iodef\ Flags: 0 Critical: 0 Tag: iodef Value: 6168 IN CAA 0 issue Owner: Type: CAA Class: IN TTL: 6168 RDstring: 0 issue Flags: 0 Critical: 0 Tag: issue Value:

Hope that helps.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2021-01-17 13:47 GMT
Find Nodes?
    Voting Booth?