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

发布时间：2020-12-15 23:37:28 所属栏目：大数据来源：网络整理

导读：在我的代码中,我正在从16位值数组中读取数据,其中一些数据实际上包含有符号的32位变量(来自大端系统).所以我会做类似的事情： $value = $data[$i] 16 | $data[$i+1]; 这在32位系统上运行良好,但在64位系统上运行时,这将被解释为正数(二进制补码为32位数). 当

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

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

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

解决方法

我将使用 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));

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!