Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 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 |
comparison
equal
deleted
inserted
replaced
29:420807d41e04 | 30:d1028107ab75 |
---|---|
232 | 232 |
233 <body> | 233 <body> |
234 <table> | 234 <table> |
235 END | 235 END |
236 | 236 |
237 sub pretty_numbers | |
238 { | |
239 my $num = shift; | |
240 $num = sprintf('%.2f', $num); | |
241 $num = reverse $num; | |
242 $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g; | |
243 return reverse $num; | |
244 } | |
245 | |
237 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); | 246 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); |
238 | 247 |
239 for my $item (@output) | 248 for my $item (@output) |
240 { | 249 { |
241 if ($col == $cols) | 250 if ($col == $cols) |