我如何签名在perl中扩展一个整数？

Question

在我的代码中，我正在从16位值数组中读取数据，其中一些数据实际上包含有符号的32位变量（来自大端系统）。所以我会做类似的事情：

$value = $data[$i] << 16 | $data[$i+1];

这在32位系统上运行良好，但在64位系统上运行时，这将被解释为正数（二进制补码为32位数）。 当然，我可以手动检查是否设置了最高位，然后减去，但它有点笨拙，特别是因为我希望代码能够在32位和64位系统上工作。 这样做有一个简单而好的方法吗？

Answer 1

我会使用pack和unpack：

my @data = (0x12, 0x3456);
my $i = 0;
my $value = unpack('l>', pack('n2', @data[$i, $i+1]));

这样做的好处是您可以一次处理整个数组：

my @values = unpack('l>*', pack('n*', @data));