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.