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

Question

为了确保我的计算对于所有情况都是正确的，我希望将结果（双精度数）看作十六进制或二进制字符串。如何在Perl中获取十六进制/二进制字符串或此数字的字节表示？在Java中，我可以使用，例如，

double d = performMyCalculations();
System.out.format("%x\n", Double.doubleToLongBits(d));  

为此目的，它将为3fc3333333333333打印0.15。如何在Perl中获得类似的结果？

Answer 1

Perl的pack()和unpack()函数允许您来回转换二进制表示。

my $double_bits = unpack "Q", pack "d", 0.15;
printf "%x\n", $double_bits;
# Output: 3fc3333333333333

pack "d"打包一个double作为其二进制表示。使用unpack "Q"，我们将此位模式解压缩为无符号的64位整数。所以这会将double的位模式重新解释/转换为整数，然后我们可以用十六进制数字输出。

Perl还有一个格式化选项来显示十六进制浮点数：

printf "%a\n", 0.15;
# Output: 0x1.3333333333333p-3