[EMAIL PROTECTED] wrote:
I'm trying to substitute all comma separated numbers in a texv dile
with the same numbers without commas. This expression will match the
numbers: \d{1,3}?(,\d\d\d)+ but how do i refer to each 3 digit block
after the commas so i can substitute for them? $1 here just returns
the last 3 digit number, but i need to substitute for all of them.
Any help is greatly appreciated.
s/([\d,]+)/(my $x = $1) =~ tr/,//d; $x/eg;
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
