如何在Perl中创建或测试NaN或无穷大？

Question

如何在Perl中创建或测试NaN或无限值？

Answer 1

print "Is NaN\n" if $a eq 'nan';
print "Is Inf\n" if $a eq 'inf' or $a eq '-inf';

编辑:修正负无穷大.

Answer 2

这是一种相当可靠的方式:

my $inf    = 9**9**9;
my $neginf = -9**9**9;
my $nan    = -sin(9**9**9);

sub isinf { $_[0]==9**9**9 || $_[0]==-9**9**9 }
sub isnan { ! defined( $_[0] <=> 9**9**9 ) }
# useful for detecting negative zero
sub signbit { substr( sprintf( '%g', $_[0] ), 0, 1 ) eq '-' }

for my $num ( $inf, $neginf, $nan ) {
   printf("%s:\tisinf: %d,\tisnan: %d,\tsignbit: %d\n", $num, isinf($num), isnan($num), signbit($num));
}

输出是:

inf:    isinf: 1,   isnan: 0,   signbit: 0
-inf:   isinf: 1,   isnan: 0,   signbit: 1
nan:    isinf: 0,   isnan: 1,   signbit: 0

Answer 3

就个人而言,我会使用Math::BigFloat(或BigInt)任何会触及无限的东西NaN.

为什么在已有模块完成工作的情况下,为什么要用黑客解决方案重新发明轮子？

Answer 4

使用CPAN中的Data :: Float.它导出以下功能:

• float_is_infinite()
• float_is_nan()
• ...

与此处发布的其他半工作解决方案相反,它有一个测试套件.