version 1.66, 2003/09/25 18:48:40
|
version 1.67, 2003/09/25 22:57:01
|
Line 490 sub format {
|
Line 490 sub format {
|
my ($value,$fmt)=@_; |
my ($value,$fmt)=@_; |
my $dollarmode; |
my $dollarmode; |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
$fmt=~/e/E/g; |
$fmt=~s/e/E/g; |
my $result=sprintf('%.'.$fmt,$value); |
my $result=sprintf('%.'.$fmt,$value); |
$result=~s/(E[+-]*)0/$1/; |
$result=~s/(E[+-]*)0/$1/; |
if ($dollarmode) {$result=&dollarmode($result);} |
if ($dollarmode) {$result=&dollarmode($result);} |