Как я могу суммировать большие шестнадцатеричные значения в 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: Это реальный выход из сценария (строка является шестнадцатеричной строкой, значение десятичного преобразования этой строки, и контрольная сумма в результате выходе):

 
string: 7800798C, value: 2013297036, checksum 7800798C 
string: 44444444, value: 1145324612, checksum BC44BDD0 
string: 44444444, value: 1145324612, checksum FFFFFFFF 
string: 44444444, value: 1145324612, checksum FFFFFFFF 
string: 78007980, value: 2013297024, checksum FFFFFFFF 
string: 44444444, value: 1145324612, checksum 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"; 

Вы получите:

 
Integer overflow in hexadecimal number at ... 
Hexadecimal number > 0xffffffff non-portable at ... 

Использование 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); 
} 

Убедитесь, что выход соответствует Вам ожидания:

 
checksum: 7800798C 
checksum: F000F318 
checksum: 68016CA4 
checksum: E001E630 
checksum: 58025FBC 
checksum: D002D948 
checksum: 480352D4 
checksum: C003CC60 
checksum: 380445EC 
checksum: B004BF78 

Без bignum, я получаю:

 
checksum: 7800798C 
checksum: F000F318 
checksum: FFFFFFFF 
checksum: FFFFFFFF 
checksum: 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").