perl - 是否可以使用 perl 的 vec() 函数存储 float ?

标签 perl vector floating-point

我有一个处理数百万行性能数据的 perl 脚本,因此我需要一种有效存储指标信息的方法。我发现了 perl 的 vec()函数,它允许您直接操作字符串的位。这可用于以内存高效的方式模拟数组。

而且它非常适合存储整数值。但对于浮点值,它就不太适用了。

这是一个例子:

#!/usr/bin/perl

my ($s) = '';

vec($s, 0, 32) = 1234;
vec($s, 1, 32) = 12.34;
vec($s, 2, 32) = pack('f', 12.34);

print "1st vec: " . vec($s, 0, 32) . " (should be '1234')\n";
print "2nd vec: " . vec($s, 1, 32) . " (should be '12.34')\n";
print "3rd vec: " . unpack ('f', vec($s, 2, 32)) . " (should be '12.34')\n";

在我的机器(Mac OS X 10.6.7、perl 5.8.9)上运行这段代码会返回以下内容:

1st vec: 1234 (should be '1234')
2nd vec: 12 (should be '12.34')
3rd vec:  (should be '12.34')

如您所见,在简单的情况下,perl 只是将 float 向下舍入为最接近的整数。我什至尝试通过使用 pack()/unpack() 来获得乐趣,但这只会将所有位清零。

我已经尝试了更多变体,增加位数,谷歌搜索等都无济于事。这看起来确实应该有效,因为归根结底,一切都只是比特。

谢谢。

最佳答案

vec 只写整数,这就是为什么第二个例子中的 12.34 被转换为 12。第三个例子中的打包字符串被转换为 0,并且 unpack('f', 0)失败。

一种解决方案是将打包值写为整数,

  vec($s, 2, 32) = unpack('L', pack('f', 12.34));
  print unpack('f', pack('L', vec($s, 2, 32))), "\n";


但是,最好/最快完全不使用 vec 绕行,而是使用 substr 的 4 参数版本,即指定(expr、偏移量、长度、替换):

 substr($s, 2*4, 4, pack("f", 12.34));
 print unpack("f", substr($s, 2*4)), "\n";

关于perl - 是否可以使用 perl 的 vec() 函数存储 float ?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5465839/

相关文章:

c++ - 从 vector 中取一些值

c++ - 如何像 python 语法一样在 C++ 中使用 "cut" vector

c++ - 如何使用cout以全精度打印 double 值?

perl - 在Moose中,如何通过一个方法调用设置多个默认值?

linux - Perl 进程解析

javascript - 如何使用 D3JS 创建复杂的 SVG 形状?

javascript - JavaScript 中 float 的除法

java - 我初始化变量 : float f = 100; or float f = 100f? 的方式有区别吗

perl - 为什么不能按照存储顺序检索 Perl 哈希的键?

perl - 在 Perl 中从 HTTP 请求中提取 header