splitting numbers with commas 1

[audiopro]

Is there a function in sprintf to split numbers with commas for readability. I can roll my own but would rather not reinvent the wheel.

ie.
12000000 => 12,000,000
256675 => 256,675
It is purely for readability.

Keith

http://www.studiosoft.co.uk

 

[rharsh]

Take a look at perlfaq5, specifically:

http://perldoc.perl.org/perlfaq5.html#How-can-I-output-my-numbers-with-commas-added?

 

[audiopro]

Thanks rharsh - that is amazing.

sub commify {

local $_  = shift;
1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
return $_;
}

I must confess - I haven't a clue how it does it but I got what I asked for.
Is there an explanation somewhere or should I just quit while I am ahead?

Keith

http://www.studiosoft.co.uk

 

[Annihilannic]

While there are 4 or more sequential digits in the string, replace them with the first bunch of digits, a comma, and the last 3 digits."

Annihilannic.