Adding commas to numbers

17 Years Ago KevinADC 0 249 Views

Convert 1000000 into 1,000,000 using a perl regexp.

my $number - 1000000;
$number = commify($number);

sub commify {
   (my $num = shift) =~ s/\G(\d{1,3})(?=(?:\d\d\d)+(?:\.|$))/$1,/g; 
   return $num; 
}

KevinADC 192 Practically a Posting Shark

15 Years Ago

In the above code the first line should be:

my $number = 1000000;

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.