develooper Front page | perl.fwp | Postings from December 2001

Re: 1,000 anyone?

Thread Previous | Thread Next
From:
Simon Drabble
Date:
December 8, 2001 05:37
Subject:
Re: 1,000 anyone?
Message ID:
Pine.LNX.4.21.0112080831380.17582-100000@dragon.localdomain
On Fri, 7 Dec 2001, Bill Jones wrote:

> Given -
> 
> ++$number while $number =~
> s/^([-+]?\d+)(\d{3})/$1,$2/,
> print "$number\n";
> 
> 
> Question:
> Why does it keep starting over at 1,000 ???
> 
> Enjoy!
> -Sx-  :]
> 
> 

as soon as $number hits 1000 you replace it with 1,000 which == 1 in numeric
terms (i.e. when evaluating the ++).

Si.


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About