如何比较 Perl 中的打包值？

Question

我想使用 Perl 中的 pack() 函数来编码一些数据。然后我想将我的打包结构与另一个打包结构进行比较。我希望这个比较是针对这个打包结构的字节值。

根据文档， cmp 使用当前区域设置来确定如何比较字符串。但我不希望将任何情报应用于比较。我想要最接近 memcmp() 的东西。显然我不能使用 <=> 来比较我的打包对象，因为它们不是数字。

在 Perl 中比较打包字符串的最佳方法是什么？

旁注：我一直在阅读 这篇关于 Perl 中高效排序的文章，其中指出简单的sort 函数使用类似 memcmp 的算法来比较结构。我想知道如何在不使用排序的情况下实现这样的比较。

Answer 1

禁用块的区域设置注意事项并照常使用 cmp：

sub mycmp {
  no locale;
  $_[0] cmp $_[1];
}

perlop 文档提供

lt、le、ge、gt 和 cmp 使用排序规则如果 use locale 有效，则按当前区域设置指定（排序）顺序。请参阅 perllocale。

然后在 perllocale

使用no locale编译指示或到达包含use locale的块末尾时恢复默认行为。

例如，运行

my($one,$two) = map pack("N", $_) => 1, 2;
say mycmp($one, $two);
say mycmp($two, $one);

输出

-1
1

Answer 2

先扩展，然后收缩。 例如，比较结构的十六进制表示形式，它仅使用 ASCII 字符和不能与您提到的区域设置问题发生冲突。

unpack('H*', $first) cmp unpack('H*', $second)

Answer 3

在这里大声思考 - 按位运算符会有帮助吗？就像对两个相同的字符串进行异或运算会得到一个所有设置为 0 的位串。

http://perldoc.perl.org/perlop.html#Bitwise-String-Operators