Re^4: "Commifying" a number

Here is a version without using reverse function. sub commify { (my $number = shift) =~ s/\G(-?)(\d{1,3})(?=(?:\d\d\d)+(?:\.|$))/$1$2,/g; return $number; } Manikanthan Velayutham programmed to think BIG

Comment on Re^4: "Commifying" a number

Replies are listed 'Best First'.
Re^5: "Commifying" a number by Anonymous Monk on Aug 13, 2009 at 14:56 UTC
My earlier post did not appear properly. `sub commify { (my $number = shift) =~ s/\G([+\|-]?)(\d{1,3})(?=(?:\d\d\d)+(?:\.\|$ +))/$1$2,/g; return $number; }` [download] Manikanthan Velayutham programmed to think BIG	[reply] [d/l]


Perl-Sensitive Sunglasses
	PerlMonks