On 12/02/2012 16:14, Mike Blezien wrote:
Need a little assistance formatting numbers pulled from a databaes. Many
are like this:
179550, 45960, 890458 etc.
what I need to do is format these values with a comma so they look like
this:
179,550, 45,960, 890,458
What is the easiest way to do this?
Hi Mike
I suggest the subtitution s/(\d+?)(?=(\d{3})+\b)/$1,/g which looks for
all sequences of digits that are followed by a multiple of three digits
and puts a comma after each of them. The program below illustrates this.
HTH,
Rob
use strict;
use warnings;
for (qw/ 179550 45960 890458 -12345678 1000000000000/) {
(my $n = $_) =~ s/(\d+?)(?=(\d{3})+\b)/$1,/g;
print "$n\n";
}
**OUTPUT**
179,550
45,960
890,458
-12,345,678
1,000,000,000,000
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
