我如何签名在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));