in reply to Re^3: "Commifying" a number
in thread "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

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]

In Section Seekers of Perl Wisdom