Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: tinyDNS deconstruct.

by AnomalousMonk (Archbishop)
on Feb 15, 2018 at 17:50 UTC ( [id://1209246]=note: print w/replies, xml ) Need Help??


in reply to tinyDNS deconstruct.

... just get "\000\005issueentrust.net" translated to "0,5,issueentrust.net" ...

Try:

c:\@Work\Perl\monks>perl -wMstrict -le "my $s = qq{\000\005issueentrust.net}; $s =~ s{ \A (.) (.) }{ sprintf '%d,%d,', ord($1), ord($2) }xmse; print qq{'$s'}; " '0,5,issueentrust.net'

Update 1: But this sounds like an XY Problem; it that really all you want?

Update 2: Here's an unpack approach:

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my $s = qq{\000\005issueentrust.net}; my ($flag, $tag, $issuer) = unpack 'C C/a a*', $s; dd $flag, $tag, $issuer; my $t = sprintf '%-6s %s %s', $flag, $tag, $issuer; print qq{'$t'}; " (0, "issue", "entrust.net") '0 issue entrust.net'
(Update: Changed  $remainder to  $issuer in this code example because this naming corresponds better to terminology used in the OP.)


Give a man a fish:  <%-{-{-{-<

Replies are listed 'Best First'.
Re^2: tinyDNS deconstruct.
by 0xdeadbad (Novice) on Feb 16, 2018 at 09:29 UTC
    Great,many thanks. Your unpack template was just what I needed.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2024-04-24 20:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found