Jak uzyskać szesnastkową reprezentację $ foo w Perlu?

Question

Biorąc pod uwagę zmienną $foo zawierającą dane binarne, w jaki sposób uzyskać szesnastkową reprezentację $foo w języku Perl?

Answer 1

Jeśli $foo jest łańcuch zawierający dowolne dane, użyj unpack:

my $hex = unpack('H*', $foo); 

Jeśli to tylko liczbą całkowitą, należy użyć sprintf:

my $hex = sprintf('%x', $foo); # Or %X if you want upper-case letters 

Answer 2

$ perldoc -f hex 
… 
To present something as hex, 
look into "printf", "sprintf", or "unpack". 

==>

$hex = sprintf("%x", $foo);