From: Dobrica Pavlinusic Date: Tue, 22 Jun 2010 14:26:29 +0000 (+0200) Subject: reformat float using sprintf X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=3a01abbcbf42145fe460aa6310b3b36337173460 reformat float using sprintf --- diff --git a/public/code/Duguje.float.pl b/public/code/Duguje.float.pl index 317012d..960f63a 100644 --- a/public/code/Duguje.float.pl +++ b/public/code/Duguje.float.pl @@ -2,7 +2,6 @@ foreach my $col ( grep { m/(Duguje|Potra.uje|Saldo)/ } keys %$row ) { foreach my $v ( @{ $row->{$col} } ) { push @{ $update->{ $col . '_old' } }, $v; $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/; - $v *= 1; - push @{ $update->{$col} }, $v; + push @{ $update->{$col} }, sprintf('%.2f',$v); } -} +} \ No newline at end of file