sent in the
following note about formatting currencies....
Problem: "In our country, prices are formatted like this..
$100 = 52.000.000 TL
So how should I format the prices as shown above.
Sprintf and .2f is not for us.
Answer: What you have is a variant on the problem "Putting
Commas in Numbers", which is covered nicely by the Perl
Cookbook, recipe 2.17:
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
print commify("52000000 TL");
This prints
52,000,000 TL
As you might imagine, you can easily alter the 2nd
line of the function to insert decimal points:
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1./g;
