perl - Perl 中最小的非零正 float 是多少？

Question

我有一个 Perl 程序，它处理的概率有时可能非常小。由于舍入误差，有时其中一个概率为零。我想检查以下内容:

use constant TINY_FLOAT => 1e-200;
my $prob = calculate_prob();
if ( $prob == 0 ) {
    $prob = TINY_FLOAT;
}

这工作正常，但我实际上看到 Perl 产生小于 1e-200 的数字(我刚刚看到一个 8.14e-314 飞过)。对于我的应用程序，我可以更改 calculate_prob() 以便它返回 TINY_FLOAT 的最大值和实际概率，但这让我对 Perl 中如何处理浮点数感到好奇。

Perl 中最小的正浮点值是多少？是否依赖平台？如果是这样，是否有一个快速程序可以用来在我的机器上计算出来？

Answer 1

根据 perldoc perlnumber , Perl 使用 native 浮点格式，其中 native 定义为用于编译它的任何 C 编译器。如果您比速度更担心精度/准确度，请查看 bignum .