Output a number in money format

[ddeham]

How do I output a number in a money format, like this:
$221,659.20

I can output it like this
printf("Total Payment \$%.2f<BR>",$roundedmonthlypayment * $years * 12);

to get $221659.20, but there are no commas. How do I output with commas? Please help.

Thanks,

Dan

 

[raklet]

Try this:

use Number::Format;
my $x = new Number::Format(-decimal_fill => 1);
$formatted = $x->format_number(221659.20);
print "\$$formatted";

I believe the module comes default with perl. Read the docs for full information on use of the module.

http://search.cpan.org/~wrw/Number-Format-1.51/Format.pm

 

[KevinADC]

Unfortunately Number::Format is not a core module. Here is a solution from the Perl CookBook to add commas:

sub commify {
    my $text = reverse $_[0];
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}