I'll have to admit that I haven't gone through most of the cookbook, but I use
sub commify { # commify a number. Perl Cookbook, 2.17, p. 64
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
every day. I like my numbers to look right.
Regards,
Vic
--
*---* mailto:[EMAIL PROTECTED]
| Uncle Bill, why didn't you ever marry? - Gloria Jean
| I was in love with a beautiful blonde once, dear.
| Drove me to drink. That's the one thing I'm indebted
| to her for. - W.C. Fields
| - Never Give A Sucker An Even Break
*---* http://vic.norton.name
