检查 Perl 模块中无穷大的最佳方法是什么？

Question

在我的一个模块中，我必须处理无穷大的概念。迄今为止，我一直使用 9**9**9 作为正无穷大，这似乎工作得很好，速度很快，并且似乎是 Perl 内部使用的无穷大。

但是，如果我的模块的用户决定使用大数字模块之一（例如 use bigint;），然后他们使用 inf 或 < code>Math::BigInt->binf() 来表示无穷大。

在某些地方，它似乎工作得很好，但在其他地方，应该是正确的或应该是错误的比较最终会以错误的方式结束，从而导致难以追踪错误。

我想用一些可以处理普通 Perl 数字和任意精度数字的东西来支持无穷大的各种其他概念。

但我也担心性能，因为我与无穷大的一些比较发生在紧密的内部循环中。显然，来自 Math::BigInt 的 inf 会比 9**9**9 慢（由于调用绑定或重载方法）每次访问时）。过去有人处理过这个问题吗？如果是这样，你的解决方案是什么？

我考虑过使用我自己的无穷大常量，定义如下：

use constant INF => if_any_bignum_modules_loaded() 
                    ? Math::BigInt->binf 
                    : 9**9**9;

然后向我的模块添加警告，应首先加载任何 bignum 模块。这听起来合理吗？是否有可靠的 if_any_bignum... 实现，或者我应该自己推出？

Answer 1

Math::BigInt 提供了一个 is_inf 方法。它可以检测常规 Perl 数字的无穷大，包括 Perl 的内置 inf，例如按 9**9**9 返回，以及任何类型的 < code>Math::Big* 实例或使用 bigint 时获得的那些神奇的东西。加载 Math::BigInt 几乎没有任何开销 - 无论如何都无法与使用 bigint 相媲美 - 并且自 perl 5 一开始就是一个核心模块。

use 5.010;
use Math::BigInt;

say Math::BigInt->is_inf(42);
say Math::BigInt->is_inf(9**9**9);
say Math::BigInt->is_inf(Math::BigInt->binf);

__END__
0
1
1

您也可以如果您确实想完全避免加载 Math::BigInt，那么想看看该方法的实现。尽管我真的建议直接使用模块中的功能，但只需稍加修改即可内联到其他代码中。