in reply to RE: regexp for adding commas to a number
in thread regexp for adding commas to a number

great regex! me too have forgoten about the look-ahead assertion :( my function that does number beautifying has no less than 8 lines :((
still.. there's a little problem when handling floats: the digits after the dot shouldn't be 'beautified' :(
.. i tried to enhance a little your line but the problem still remains because of the fixed-width look-behind:

$number =~ s/(?<!\.\d)(\d)(?=(\d{3})+(\D|$))/$1,/g;
(this example works for numbers with 5 digits after the dot... variations may me done by modifying the 'quantity' of \d from the look-behind assertion)

couldn't think at anything better now.. maybe you have another bright idea for this too o=)

so, after inserting your wizcraft, my lame tool looks something like this: 

$number =~ s/(\d+)(\.\d+)?/bea_int($1).$2/eg;      
sub bea_int {
   my $kk = $_[0];
   $kk =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
   return $kk;
}

[download]

--
AltBlue... w8ing 4 a better solution o=Q

Replies are listed 'Best First'.
RE: open ended floats
by bastard (Hermit) on Aug 18, 2000 at 01:00 UTC
    The easy way to deal with open ended floating pointed nums is to simply remove the floating part until the commas are added, then reattach. 
    $integer =~ s/(.*)(\.\d\d+)$/$1/;
$float = $2;

# do stuff

$integer .= $float;

    [download]
[reply]
[d/l]
      lol. isn't that what i'm currently doing ?! :))
      plz check up again my previous post and look at the final code - it does exactly that :)
      your snippet doesn't work for 'real' strings like: 'for every 1234.567 blah stuff there is some 34% rate of foobar success at every 9876543.876543 seconds'

      --
      AltBlue.

[reply]
      It would be more efficient to use split. 
      my( $int, $float ) = split /\./, $num;

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom