in reply to How do I print a large integer with thousands separators?
my $number = '$12345678.90'; # dollars $_ = reverse $number; s/(\d{3})(?=\d)(?!\d*\.)/$1,/g; $number = reverse $_;
|
---|
In Section
Seekers of Perl Wisdom
in reply to How do I print a large integer with thousands separators?
my $number = '$12345678.90'; # dollars $_ = reverse $number; s/(\d{3})(?=\d)(?!\d*\.)/$1,/g; $number = reverse $_;
|
---|