On Sun, 10 Oct 2004, Siegfried Heintze wrote: > So what is the business/accounting convention for displaying currency > values in the US? I believe 100, 23432.32 and -53.23 are display as > > $ 100.00 > > $23,432.32 > > $ (53.23) > > I'm not sure if the $ goes outside or inside the parentheses. Outside, I think, but I'm not an accountant or bookkeeper... > Anyway, is there an elegant and slick way to do this in perl? Perhaps > there is a special package on CPAN to do this?
Do you have the _Perl Cookbook_? Recipe 2.17 goes over this, at least in part: sub commify { my $text = reverse $_[0]; $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g; return scalar reverse $text; } This may have to be extended for what you're doing, but it's a good start. The big insight here is that it's easier to do this on a reversed version of the number, then flip it back around once you're done. -- Chris Devers -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>