如何在 Perl 中使用“打包/解包”？

Question

当我使用Ruby 语言解析数据时，我的数据被编码为 64 位网络字节顺序，如下所示：

def unpack_string(str)
   binary = str.unpack('m*').first
   binary.unpack('G*')
end

my_array_of_floats = unpack_string(str)

如何使用 Perl 的 pack/unpack 做同样的事情？

Answer 1

查看 Ruby 文档，

• m 是 MIME base64 编码。
• G 是双精度、网络（大端）字节顺序

Perl 的 unpack 不支持 base64，但 MIME::Base64 可以。

在 Perl 的 unpack 中，d 是双精度。您可以使用> 指定字节顺序。

use MIME::Base64 qw( decode_base64 );
my @nums = unpack 'd>*', decode_base64 $str;

> 是在 Perl 5.10 中引入的。