How to format Mb numbers?

[blink]

Hello,

If I have a number of 123456789, how do I reformat it to be shown as 123,456,789?

[QuietDean]

Hi,

I'm not so hot on perl, but some googling found this sub, designed for formatting to currencies:

sub CommaFormatted
{
	my $delimiter = ','; # replace comma if desired
	my($n,$d) = split /\./,shift,2;
	my @a = ();
	while($n =~ /\d\d\d\d/)
	{
		$n =~ s/(\d\d\d)$//;
		unshift @a,$1;
	}
	unshift @a,$n;
	$n = join $delimiter,@a;
	$n = "$n\.$d" if $d =~ /\d/;
	return $n;
}
# end of subroutine CommaFormatted

Source: http://www.web-source.net/web_develo...formatting.htm