How do I create or test for NaN or infinity in Perl?
How do I create or test for NaN or infinite values in Perl? print "Is NaN\n" if $a eq 'nan'; print "Is Inf\n" if $a eq 'inf' or $a eq '-inf'; EDIT : Fixed for negative infinity. ysth Here's a fairly reliable way: 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),