http://qs321.pair.com?node_id=812928


in reply to how to evaluate exponential notations and floating points

Take a look at this.
#!/usr/bin/perl use strict; while( my $evalue = <DATA> ){ chomp $evalue; if($evalue < 0.001){ print "$evalue\n"; } } __DATA__ 1e-005 2e-090 0.00 0.67 1.0 4e-065