Python ctypes.c_int 到 Perl XS（或非 XS）的转换（Javascript 有符号的 32 位位移运算符转换）

Question

背景

我们需要将 Javascript 哈希算法转换为 Perl 代码。因此，我们需要将 Javascript 的移位运算符 > 和 >>> 转换为 Perl。到目前为止，我们已经有了进行转换的算法，但是由于 Javascript 的按位移位运算符对 32 位整数进行操作，因此我们还需要在 Perl 中进行模拟。

Python 解决方案

根据这篇文章https://stackoverflow.com/a/41610348，我们了解到我们可以在 Python 中使用 ctypes 来做到这一点。例如，将整数左移 x 位：

import ctypes
print (ctypes.c_int(integer << x ^ 0).value)

Perl 问题

我的理解是，我们需要使用 XS 来做到这一点。我的问题是是否有人有一个快速的解决方案来实施它。我们不知道 XS。我们可以开始学习它，但从我的印象来看，学习曲线非常高，可能需要一段时间才能掌握它。当然，如果存在非 XS 解决方案，那将是理想的。任何解决方案或提示将不胜感激。

解决方法

由于我们已经有了 Python 解决方案，我们可以在 Python 中实现这个模块，然后从 Perl 中调用它。性能并不是真正的问题，因此这种“hack”是可以接受的，尽管有些不可取。换句话说，我们更愿意只在 Perl 中维护整个程序（由几个模块组成）。

Answer 1

sub lshr32 { ( $_[0] & 0xFFFFFFFF ) >> $_[1] }                           # >>> in JS
sub lshl32 { ( $_[0] << $_[1] ) & 0xFFFFFFFF }

sub ashr32 { ( $_[0] - ( $_[0] % ( 1 << $_[1] ) ) ) / ( 1 << $_[1] ) }   # >> in JS
sub ashl32 { unpack "l", pack "l", $_[0] * ( 1 << $_[1] ) }              # << in JS

---

将负数传递给逻辑移位是没有意义的，除非该数字不是真正的数字而是位的集合。鉴于您正在移植散列算法，这很有可能。这也意味着您通过与 JavaScript 紧密匹配来为自己创建许多额外的工作，因为您正在重新创建用于解决 JavaScript 限制的技巧，而这些限制在 Perl 中不存在。使用 32 位无符号值应该更简单，<< 使用 & 0xFFFFFFFF 截断，>> 使用 & 0xFFFFFFFF 截断。