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

Question

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

Answer 1

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

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

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

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