|
|
|
| P is for Practical | |
| PerlMonks |
Re: Formatting a numberby smokemachine (Hermit) |
| on Oct 16, 2006 at 20:10 UTC ( [id://578586]=note: print w/replies, xml ) | Need Help?? |
|
perl -e '$num=12345678;$num=~s/(\d{1,3})$//,$num2=(($num)?",":"").$1.$num2 while$num;print$num2'
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||