如何在 Perl 中对较大的十六进制值求和？

Question

我正在对一组 32 位十六进制字符串（“DEADBEEF”、“12345678”等）进行迭代，并尝试将它们相加以形成 32 位校验和。假设在下面的示例中，变量$temp 加载了一些十六进制字符串。

my $temp;
my $checksum;

for (...)
{
    #assume $temp is loaded with a new hex string here
    my $tempNum = hex ($temp);
    $checksum += $tempNum;
    $checksum &= 0xFFFFFFFF;
    print printf("checksum: %08X",$checksum);
}

前几个值是“7800798C”、“44444444”和“44444444”。输出是：

校验和：7800798C
校验和： BC44BDD0
校验和：FFFFFFFF
校验和：FFFFFFFF

等等。

你可以看到前两个总和是正确的，然后它似乎饱和了。我是否遗漏了有关 Perl 变量大小限制的内容？

EDIT：这是脚本的实际输出（字符串是十六进制字符串，值是该字符串的十进制转换，校验和是结果输出）：

字符串：7800798C，值：2013297036，校验和7800798C 字符串：44444444，值：1145324612，校验和BC44BDD0 字符串：44444444，值：1145324612，校验和FFFFFFFF 字符串：44444444，值：1145324612，校验和FFFFFFFF 字符串：78007980，值：2013297024，校验和FFFFFFFF 字符串：44444444，值：1145324612，校验和FFFFFFFF

Answer 1

这是之前在Perl Monks 提出的问题。

答案似乎是“use integer”。

请参阅 Perl Monks 和 perldoc integer 的原始答案。

$ perl -we 'use integer; printf("%08X\n",  0xFFFF_FFFF + 0xFFFF_FFFF)'

Answer 2

如果你的perl 是用 32 位整数编译的，导致数字大于0xffffffff 的整数运算将导致问题。例如：

my $x = hex '0x1234567890';
my $y = hex '0x1234567890';

print $x + $y,  "\n";

你会得到：

十六进制整数溢出... 十六进制数 > 0xffffffff 不可移植...

使用bignum 添加对更大整数的透明支持：

#!/usr/bin/perl

use strict; use warnings;
use bignum qw/hex/;

my $x = hex '0x7800798C';
my $chk;

for (1 .. 10) {
    $chk += $x;
    $chk &= 0xFFFFFFFF;
    printf("checksum: %08X\n", $chk);
}

验证输出是否符合您的期望：

校验和：7800798C 校验和：F000F318 校验和：68016CA4 校验和：E001E630 校验和：58025FBC 校验和：D002D948 校验和：480352D4 校验和：C003CC60 校验和：380445EC 校验和：B004BF78

没有bignum，我得到：

校验和：7800798C 校验和：F000F318 校验和：FFFFFFFF 校验和：FFFFFFFF 校验和：FFFFFFFF ...

Answer 3

你想要什么结果？ &= 将删除大于0xffffffff 的数字的任何位。不断地将数字相加只会得到一个越来越大的数字，然后是 &ed 和 0xffffffff。在某些时候，我希望你会得到除0xffffffff 以外的东西，不是吗？但它永远不会更大！

也许更好的校验和方法是将xor你的号码放在一起。

my $temp;
my $checksum;

for (...)
{
    #assume $temp is loaded with a new hex string here
    my $tempNum = hex ($temp);
    $checksum ^= $tempNum;
    print printf("checksum: %08X",$checksum);
}

这将使这些数字变得独一无二。

Answer 4

为了扩展Sinan's answer，&= 运算符和%X 格式都受到编译到 Perl 中的整数大小的影响。在这种情况下，最大大小为 4294967295 或 0xFFFFFFFF。

虽然您的变量可以保存大于此值的值，但在通过 &= 或 sprintf("%X") 传递时，它们将被截断到此最大值。