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

Question

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

Answer 1

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

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

如果它只是一个整数,请使用sprintf:

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