Re: formatting numbers

Pat wrote:
> 
> I have been through man printf, info printf and perldoc -f print and still
> can't find how to format numbers.
> In the program below I would like to print the numbers as below:
>         383.3    as 383.30

$ perl -le'printf "%.2f\n", 383.3'
383.30

>         37492908 as 37 492 908

If we slightly modify the commify() sub from perlfaq5

$ perl -e'
sub commify {
    local $_  = shift;
    1 while s/^([-+]?\d+)(\d{3})/$1 $2/;
    return $_;
    }
print commify( 37492908 ), "\n"'
37 492 908

>         35.7560234069824 as 35.76

$ perl -le'printf "%.2f\n", 35.7560234069824'
35.76

>         1631.11929000261 as 1 631

$ perl -e'
sub commify {
    local $_  = shift;
    1 while s/^([-+]?\d+)(\d{3})/$1 $2/;
    return $_;
    }
print commify( int( 1631.11929000261 ) ), "\n"'
1 631


John
-- 
use Perl;
program
fulfillment

• formatting numbers by pat
• RE: formatting numbers by Timothy Johnson
• Re: formatting numbers by John W. Krahn