我怎样才能在 Perl 中 sprintf 一个大数字？

Question

在 Windows 32 位平台上，我必须读取一些数字，这是出乎意料的，它们的值可以大到 99,999,999,999，但不能再大了。 尝试 sprintf("%011d", $myNum) 它们会输出溢出：-2147483648。

我无法使用 BigInt 模块，因为在这种情况下我应该深入更改代码。 我无法将格式管理为字符串 sprintf("%011s", $numero)，因为减号处理不正确。

我该如何处理这个问题？ 打包/解包有帮助吗？

Answer 1

尝试将其格式化为不带小数部分的浮点数：

$ perl -v
This is perl, v5.6.1 built for sun4-solaris
...

$ perl -e 'printf "%011d\n", 99999999999'
-0000000001

$ perl -e 'printf "%011.0f\n", 99999999999'
99999999999

Answer 2

是的，Perl 的数字盲点之一是格式化； Perl 自动很好地处理将数字表示为整数或浮点数，但随后将它们强制转换为
使用 printf 数字格式时使用其中之一，即使不是
合适的。 并且 printf 根本不真正处理 BigInts （除非通过处理
将它们作为字符串并将其转换为数字，但会损失精度）。

使用 %s 而不是 %d 与您不确定是否合适的任何数字
range 是一个很好的解决方法，除非您注意到负数。 处理
那些，你将不得不编写一些 Perl 代码。

Answer 3

在一定程度上，浮动是可行的。

perl -e "printf qq{%.0f\n}, 999999999999999"
999999999999999

但只有在一定程度上

perl -e "printf qq{%.0f\n}, 9999999999999999999999999999999999999999999999"
9999999999999998663747590131240811450955988992

Bignum 在这里没有帮助。

perl -e "use bignum ; printf qq{%.0f\n}, 9999999999999999999999999999999999999999999999"
9999999999999999931398190359470212947659194368    

问题是printf。 （你真的需要 printf 吗？）
打印可以吗？

perl -e "use bignum;print 9999999999999999999999999999999999999999999999"
9999999999999999999999999999999999999999999999

说了这么多，perl 的好处是它始终是您自己开发的一个选择。

例如

my $in = ...;
my $out = "";
while($in){
  my $chunk=$in & 0xf;
  $in >>= 4;
  $out = sprintf("%x",$chunk).$out;
}
print "0x$out\n";

Answer 4

我不是 Perl 专家，也许我在这里缺少某种 bignum 的自动处理，但这不是简单的整数溢出情况吗？ 32 位整数不能容纳 99,999,999,999 这样大的数字。

无论如何，我在 32 位 Linux 机器上使用 Perl v5.8.8 得到了相同的结果，并且带有“%d”的 printf 似乎不能处理更大的数字。

Answer 5

我认为你的 Perl 副本一定被破坏了，这是来自 CygWin 的版本（5.10）：

pax$ perl -e 'printf("%011d\n", 99999999999);'
99999999999

pax$ perl -v

This is perl, v5.10.0 built for cygwin-thread-multi-64int
(with 6 registered patches, see perl -V for more detail)

Copyright 1987-2007, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

你正在运行什么版本（perl -v 的输出）？

您可能需要获得启用 64 位的 Perl 版本 [可能还需要新的 64 位生产机器]（请注意我的输出中的 "cygwin-thread-multi-64int"）。 这至少可以避免更改代码的需要。

我这样说是因为您不想大幅更改代码（即您担心破坏代码）。 新硬件的解决方案虽然有点昂贵，但几乎肯定不需要您根本更改软件。 这取决于您的优先事项。

另一种可能性是 Perl 本身可能正确存储数字，但由于 printf() 缺陷而显示错误。 在这种情况下，您可能想尝试：

$million = 1000000;
$bignum = 99999999999;
$firstbit = int($bignum / $million);
$secondbit = $bignum - $firstbit * million;
printf ("%d%06d\n",$firstbit,$secondbit);

将其放入函数中并调用该函数以返回字符串，例如：

sub big_honkin_number($) {
    $million = 1_000_000;
    $bignum = shift;
    $firstbit = int($bignum / $million);
    $secondbit = $bignum - $firstbit * $million;
    return sprintf("%d%06d\n", $firstbit, $secondbit);
}
printf ("%s", big_honkin_number (99_999_999_999));

请注意，我对此进行了测试，但在 64 位平台上 - 您需要在 64 位平台上进行自己的测试32 位，但您可以使用您想要的任何缩放因子（如果需要，包括两个以上的段）。

更新： big_honkin_number() 技巧在 32 位 Perl 上运行良好，因此看起来就是只是 printf() 让你感到厌烦的函数：

pax@pax-desktop:~$ perl -v

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi

Copyright 1987-2006, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

pax@pax-desktop:~$ perl qq.pl
99999999999