Printing a binary buffer in readable Hex format instead of ASCII format

If you're not too fussy on the format,

sprintf("%v02X", $bytes)

will give you

8F.00.8F.13....

If you really want

8F 00 8F 13 ...

Then the following are some options:

sprintf("%v02X", $bytes) =~ s/\./ /rg

join ' ', map { sprintf("%02X", ord($_)) } split(//, $bytes)

join ' ', unpack '(H2)*', $bytes

Use the ord function:

$VAR1 = '☺, ?♥☻♦\' N v ►☻ ☻ ◄☻   ↕♥    ‼♥    ¶♥    §* ☺♥☺♥☺@☺ ☺☺☺♠☺♠☺ ☺♦ ☺♀         ☺☻ ☺3';

print join ' ', map {sprintf("%x", ord)} split //, $VAR1;

Outputs:

e2 98 ba 2c 20 3f e2 99 a5 e2 98 bb e2 99 a6 27 20 4e 20 76 20 e2 96 ba e2 98 bb 20 e2 98 bb 20 e2 97 84 e2 98 bb 20 20 20 e2 86 95 e2 99 a5 20 20 20 20 e2 80 bc e2 99 a5 20 20 20 20 c2 b6 e2 99 a5 20 20 20 20 c2 a7 2a 20 e2 98 ba e2 99 a5 e2 98 ba e2 99 a5 e2 98 ba 40 e2 98 ba 20 e2 98 ba e2 98 ba e2 98 ba e2 99 a0 e2 98 ba e2 99 a0 e2 98 ba 20 e2 98 ba e2 99 a6 20 e2 98 ba e2 99 80 20 20 20 20 20 20 20 20 20 e2 98 ba e2 98 bb 20 e2 98 ba 33

Note: if your data is utf8, then you'll need to specify it as such:

263a 2c 20 3f 2665 263b 2666 27 20 4e 20 76 20 25ba 263b 20 263b 20 25c4 263b 20 20 20 2195 2665 20 20 20 20 203c 2665 20 20 20 20 b6 2665 20 20 20 20 a7 2a 20 263a 2665 263a 2665 263a 40 263a 20 263a 263a 263a 2660 263a 2660 263a 20 263a 2666 20 263a 2640 20 20 20 20 20 20 20 20 20 263a 263b 20 263a 33