in reply to How do I print a large integer with thousands separators?
$number = 123456789; $number = reverse join ",", (reverse $number) =~ /(\d{1,3})/g;
In Section
Seekers of Perl Wisdom
in reply to How do I print a large integer with thousands separators?
$number = 123456789; $number = reverse join ",", (reverse $number) =~ /(\d{1,3})/g;