Come ottengo la rappresentazione esadecimale di $ pippo in Perl?

Question

Data la variabile $foo contenente dati binari, come si ottiene la rappresentazione esadecimale di $foo in Perl?

Answer 1

Se $foo è una stringa contenente dati arbitrari, utilizzare unpack:

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

Se è solo un numero intero, utilizzare 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);