perl - 如何从十六进制格式的解包中获取校验和？

Question

我一直在试图找出 unpack在 Perl 中运行，并不能完全弄清楚整个事情。

我拥有的:
一个字符串和一个 16 位十六进制校验和
(例如 "this is my string" 、 "0671" )

我需要检查一下 "this is my string"等于校验和 '0671' .

所以我知道unpack("%16W*", $string)会给我 16 位十进制值，但我需要十六进制表示。我知道这很容易，所以请原谅我的无知。

Answer 1

正如你所说，unpack("%16W*", $string)给你一个整数。要将整数转换为十六进制，请使用 sprintf :

my $string = "this is my string";
my $expected = '0671';

my $checksum = sprintf('%04x', unpack("%16W*", $string));
print "match\n" if $checksum eq $expected;

如果你想要大写的十六进制数字，使用 %X而不是 %x (或 %04X 在这种情况下)。

或者，您可以换一种方式使用 hex 将十六进制校验和转换为整数。 :

my $string = "this is my string";
my $expected = '0671';

my $checksum = unpack("%16W*", $string);
print "match\n" if $checksum == hex $expected; # now using numeric equality