php – perl unary~给出的不是预期的结果

我正在尝试将一个PHP算法移植到perl但是我很难与一个我不熟悉的位运算符…

所以PHP代码看起来像这样：

...
$var = '348492634';
print ~$var;
...

结果：-348492635

在perl中执行完全相同的操作：

...
$var = '348492634';
print ~$var;
...

结果：18446744073361058981

我根据cpu的体系结构阅读了很多关于整数大小的内容,但我从未找到过有效的解决方案.也许我只是在perl中使用了错误的函数…

逻辑必须得到与PHP脚本相同的结果.

提前致谢

解决方法:

似乎在你的设置中,PHP int是32位签名而perl int是64位无符号.

这可能会在给定系统上执行您所需的操作,但如果您在另一个perl安装中使用它,则无法保证其工作原理相同.

$var = '348492634'; #hex!
print ~($var - 2**32) - 2**32;