Mercurial > hg > reproctool-df
changeset 30:d1028107ab75
Pretty numbers function
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 17:44:32 +0000 |
parents | 420807d41e04 |
children | 5c28a9d5fae7 583e4c324c24 |
files | reproctool.cgi |
diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/reproctool.cgi Sun Jan 25 17:38:56 2009 +0000 +++ b/reproctool.cgi Sun Jan 25 17:44:32 2009 +0000 @@ -234,6 +234,15 @@ <table> END +sub pretty_numbers +{ + my $num = shift; + $num = sprintf('%.2f', $num); + $num = reverse $num; + $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g; + return reverse $num; +} + my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); for my $item (@output)