我正在尝试将一个PHP算法移植到perl但是我很难与一个我不熟悉的位运算符…
...
$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;