Inspired by toolic's code (toolic is of course free to use this in his module):
use warnings;
use strict;
use POSIX;
for my $num (0, -0.1, 0.1, 999.99, 1000, -999.99, -1000, 1.234e34, 1.2
+34e-34){
printf "%-10s %-10s\n", $num, asEng ($num);
}
sub asEng {
my ($num) = @_;
return '0' if +$num eq '0';
my $sign = ($num < 0) ? '-' : '';
$num = abs $num;
my $e = floor( log($num) / log(1000) );
my $mult = 1000**$e;
$e *= 3;
$num = $num / $mult;
return "$sign${num}e$e";
}
Prints:
0 0
-0.1 -100e-3
0.1 100e-3
999.99 999.99e0
1000 1e3
-999.99 -999.99e0
-1000 -1e3
1.234e+034 12.34e33
1.234e-034 123.4e-36
True laziness is hard work
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.