Snippet Name: Create string by formatting an amount as money
Description: This uses Tan D Nguyen's module "Locale-Currency-Format".
Comment: Locale-Currency-Format
Language: PERL
Highlight Mode: PERL
Last Modified: March 06th, 2009
|
USE Locale::Currency::Format;
MY $amount = 10000;
MY $dollars = currency_format('usd', $amount, FMT_SYMBOL);
PRINT "I want $dollars so I can buy a pony.";
|