Perl golf: printing data in hex

[A. Farber]

Given a binary string in $x, what would be the shortest way
to print it out in hex, like: 3A BC DE FF 00 .. .. .. ?

 

[Thomas Kratz]

Given a binary string in $x, what would be the shortest way
to print it out in hex, like: 3A BC DE FF 00 .. .. .. ?

my $str = "\x3A\x3A\xBC\xDE\xFF\x00";
print join ' ', map uc(unpack("H*", $_)), split(//, $str);

Thomas

 

[Ron Parker]

Given a binary string in $x, what would be the shortest way
to print it out in hex, like: 3A BC DE FF 00 .. .. .. ?

$_=unpack('H*',$x);s/(..)/\U\1 /g;print

 

[fifo]

Given a binary string in $x, what would be the shortest way
to print it out in hex, like: 3A BC DE FF 00 .. .. .. ?

print uc join' ',unpack'(H2)*',$x

 

[Jay Tilton]

(e-mail address removed) (A. Farber) wrote:

: Given a binary string in $x, what would be the shortest way
: to print it out in hex, like: 3A BC DE FF 00 .. .. .. ?

printf'%*v02X',$",$x

That was broken in 5.8.0, which upset me greatly.
It's fixed again in 5.8.2.