在 32 位 perl 中使用 64 位整数和十六进制

Question

我想编写一个 perl 脚本来解析包含大量 64 位整数的文本文件。所有整数都用十六进制写。

我需要

• 从输入中读取十六进制
• 比较 64 位整数（<、=、>）
• 减去 64 位整数
• 输出 64 位十六进制数

我需要使用 32 位 perl，我不能使用任何 CPAN/外部模块（脚本必须是可移植的）。

PS 我的 perl 是 5.8（这是用于脚本的最小版本）

PPS bignum/bigint 错误：

$ perl -e 'use bignum; $_=hex("0x0000123412345678")'
Integer overflow in hexadecimal number at -e line 1.

$ perl -e 'use bigint; $_=hex("0x0000123412345678")'
Integer overflow in hexadecimal number at -e line 1.

PPPS：这里没有from_hex。

$ perl -e 'use Math::BigInt; $_=Math::BigInt->from_hex("0x0000123412345678");'
Can't locate object method "from_hex" via package "Math::BigInt" at -e line 1.

没有qw/hex/：

$ perl -e 'use bigint qw/hex/; $_=hex("0x0000123412345678")'
unknown option hex at /usr/lib/perl5/5.8/bigint.pm line...

PPPPS：但 new() 有效：

$ perl -e 'use Math::BigInt; $_=Math::BigInt->new("0x0000123412345678"); print  $_->as_hex(),"\n";'
0x123412345678

Answer 1

核心编译指示bigint 将让您透明地处理大于系统支持的整数。 Math::BigInt 核心库中有相关的函数可以转换为十六进制表示。

Answer 2

Math::Int64 允许访问本机有符号和无符号 64 位数字。这肯定比可能的替代方案Math::BigInt 更快。

它有十六进制转换例程，它重载了比较和算术运算符，所以它可以做你要求的一切。

use Math::Int64 qw( hex_to_uint64 uint64_to_hex );
my $n1 = hex_to_uint64("200000000");
my $n2 = hex_to_uint64("300000000");
printf("n1 is %s equal to n2\n",     $n1 == $n2 ? "" : "not");
printf("n1 is %s less than n2\n",    $n1 <  $n2 ? "" : "not");
printf("n1 is %s greater than n2\n", $n1 >  $n2 ? "" : "not");
printf("0x%016s", uint64_to_hex($n2 - $n1));

输出：

n1 is not equal to n2
n1 is less than n2
n1 is not greater than n2
0x0000000100000000

使用或缺少 CPAN 不会影响脚本的可移植性。