为什么我的 Perl bigint 有小数位？

Question

如果我在 substr 中使用大整数：

use BigInt;
$acct_hash = substr(('99999999999912345' + $data[1]),0,15);

为什么结果仍然是 9.9999999999912？

我期待999999999999912。 有类似这样的东西吗？

$data[1] = substr(to_char('999999999999991234'),0,15); 

Perl 中

Answer 1

要获取 $a 和 $b 之和的前 15 位数字，请执行以下操作：

use bigint;
my $a = "99999999999912345";  # works with or without quotes
my $b = "111";                # works with or without quotes
print substr(0 + $a + $b, 0, 15), "\n";

您的代码未按预期工作的原因是 Perl 执行了浮动如果 $a 和 $b 都是字符串，则 $a + $b 的点加法，即使 使用 bigint已生效。 示例：

use bigint;
print     1234567890123456789  +  2 , "\n";  #: 1234567890123456791
print    "1234567890123456789" +  2 , "\n";  #: 1234567890123456791
print     1234567890123456789  + "2", "\n";  #: 1234567890123456791
print    "1234567890123456789" + "2", "\n";  #: 1.23456789012346e+18
print 0 + 1234567890123456789  + "2", "\n";  #: 1234567890123456791

此行为是 Perl bigint 模块中的一个怪癖。 您可以通过在前面添加 0 + （如上所示）来解决此问题，从而强制 bigint 加法而不是浮点加法。 另一种解决方法可以是 Math::BigInt->new($a) + $b 而不是 0 + $a + $b。

Answer 2

我认为你遇到的是字符串解释的问题。 试试这个代码：

use bigint;
print(99999999999912345 + 99999999999912345, "\n");

并将其与非常相似的代码进行比较：

use bigint;
print('99999999999912345' + '99999999999912345', "\n");

在数字周围使用单引号会将它们转换为字符串，并且似乎可以绕过 bigint。