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?
Answer
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.
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.