如何在 Perl 中解压双精度值？

Question

来自这个问题：

bytearray - Perl pack/unpack 和二进制字符串的长度 - Stack Overflow

我了解到，下面代码片段中的 @unparray = unpack("d "x5, $aa); 会在 unparray 中产生字符串项- 不是具有双精度数字（如我所料）。

是否有可能以某种方式从下面代码片段中的 $aa 字节字符串中获取双精度值数组？：

$a = pack("d",255);
print length($a)."\n";
# prints 8

$aa = pack("ddddd", 255,123,0,45,123);
print length($aa)."\n";
# prints 40

@unparray = unpack("d "x5, $aa);
print scalar(@unparray)."\n";
# prints 5

print length($unparray[0])."\n" 
# prints 3

printf "%d\n", $unparray[0] '
# prints 255

# one liner:
# perl -e '$a = pack("d",255); print length($a)."\n"; $aa = pack("ddddd", 255,123,0,45,123); print length($aa)."\n"; @unparray = unpack("d "x5, $aa); print scalar(@unparray)."\n"; print length($unparray[0])."\n" '

提前非常感谢您的回答，
干杯!

Answer 1

是什么让你认为它没有存储为双精度？

use feature qw( say );

use Config      qw( %Config );
use Devel::Peek qw( Dump );

my @a = unpack "d5", pack "d5", 255,123,0,45,123;

say 0+@a;             # 5
Dump $a[0];           # NOK (floating point format)
say $Config{nvsize};  # 8 byte floats on this build

Answer 2

抱歉，您误解了霍布斯对您之前问题的回答。

$unparray[0] 是双精度浮点值；但 length 与 C 的 sizeof 运算符不同，并且不会告诉您其参数的大小。相反，它将其参数转换为字符串，然后告诉您该字符串的长度。

例如，这个：

my $a = 3.0 / 1.5;
print length($a), "\n";

将打印这个：

1

因为它将 $a 设置为 2.0，它被字符串化为 2，长度为 1..