Commatizing numbers: Difference between revisions

=={{header|Perl}}==

Displaying before/after only when changes applied.

<lang perl>@input = (

['pi=3.14159265358979323846264338327950288419716939937510582097494459231', ' ', 5],

['The author has two Z$100000000000000 Zimbabwe notes (100 trillion).', '.'],

['-in Aus$+1411.8millions'],

['===US$0017440 millions=== (in 2000 dollars)'],

['123.e8000 is pretty big.'],

['The land area of the earth is 57268900(29% of the surface) square miles.'],

['Ain\'t no numbers in this here words, nohow, no way, Jose.'],

['James was never known as 0000000007'],

['Arthur Eddington wrote: I believe there are 15747724136275002577605653961181555468044717914527116709366231425076185631031296 protons in the universe.'],

[' $-140000±100 millions.'],

['5/9/1946 was a good year for some.']

);

for $i (@input) {

$old = @$i[0];

$new = commatize(@$i);

printf("%s\n%s\n\n", $old, $new) if $old ne $new;

}

sub commatize {

my($str,$sep,$by) = @_;

$sep = ',' unless $sep;

$by = 3 unless $by;

$str =~ s/ # matching rules:

(?<![eE\/]) # not following these characters

([1-9]\d{$by,}) # leading non-zero digit, minimum number of digits required

/c_ins($1,$by,$sep)/ex; # substitute matched text with subroutine output

return $str;

}

sub c_ins {

my($s,$by,$sep) = @_;

$s = reverse $s;

$s =~ s/(.{$by})/$1$sep/g;

$s =~ s/$sep$//;

return reverse $s;

}</lang>

{{out}}

<pre>pi=3.14159265358979323846264338327950288419716939937510582097494459231

pi=3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59231

The author has two Z$100000000000000 Zimbabwe notes (100 trillion).

The author has two Z$100.000.000.000.000 Zimbabwe notes (100 trillion).

-in Aus$+1411.8millions

-in Aus$+1,411.8millions

===US$0017440 millions=== (in 2000 dollars)

===US$0017,440 millions=== (in 2000 dollars)

The land area of the earth is 57268900(29% of the surface) square miles.

The land area of the earth is 57,268,900(29% of the surface) square miles.

Arthur Eddington wrote: I believe there are 15747724136275002577605653961181555468044717914527116709366231425076185631031296 protons in the universe.

Arthur Eddington wrote: I believe there are 15,747,724,136,275,002,577,605,653,961,181,555,468,044,717,914,527,116,709,366,231,425,076,185,631,031,296 protons in the universe.

$-140000±100 millions.

$-140,000±100 millions.</pre>