如何在 Perl 中将十进制数转换为十六进制字符串？

Question

如何在 Perl 中将十进制数转换为十六进制字符串？

例如，我想将 2001 转换为“0x07”和“0xD1”。

Answer 1

这适用于这种情况：

($x,$y) = map { "0x$_" } 
          sprintf("%04X\n", 2001) =~ /(..)(..)/; 

但我想知道你真正想要做什么。如果您尝试获取 UTF-16，这不是您想要的方式。

如果您想弄清楚打包二进制数据的布局，那么您应该使用unpack。 “C4”格式适用于 4 字节整数。

$int = 2001;
$bint = pack("N", $int);
@octets = unpack("C4", $bint);
printf "%02X " x 4 . "\n", @octets;
# prints: 00 00 07 D1

出于某些目的，您可以使用 printf 的矢量打印功能：

printf "%v02X\n", pack("N", 2001);
# prints: 00.00.07.D1

printf "%v02X\n", 255.255.255.240;
# prints: FF.FF.FF.F0

Answer 2

我不确定您想要什么格式，但转换为十六进制的一种方法是：

sprintf("%x", 2001)