如何比较Perl中的压缩值?

禁用块的区域设置注意事项并使用 cmp 像往常一样:

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

这个 perlop 文件提供

lt , le , ge , gt 和 化学机械抛光 使用当前区域设置指定的排序规则(排序)顺序,如果 use locale 是有效的。见 perllocale .

然后在 周界

默认行为将使用 no locale pragma,或在到达块封闭的结尾时 使用场所 .

例如,运行

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

输出

-1
1

Expand, then contract. 例如,比较结构的十六进制表示,它只使用ASCII字符,不能与您提到的区域设置问题冲突。

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

在这里大声思考-位运算符有帮助吗?就像在两个相同的字符串上执行XOR一样,所有的值都设置为0。

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