如何在Perl中获得$ foo的十六进制表示？

Question

给定包含二进制数据的变量$foo，如何在Perl中获取$foo的十六进制表示？

Answer 1

如果$foo是包含任意数据的字符串，请使用unpack：

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

如果它只是一个整数，请使用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".

==＆GT;

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