>From the Cookbook:
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
Pass it the number and it will pass back a comma delimited number.
Wags ;)
-----Original Message-----
From: Dirk Bremer [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 21, 2001 13:18
To: perl-win32-users
Subject: Regex for comma substitution
I am looking for a regex to be used for comma substitution for numbers, i.e. the regex
would transform:
999 = 999
9999 = 9,999
99999 = 99,999
999999 = 999,999
9999999 = 9,999,999, etc.
I tried s/(\d{3})/,$1/g, but for certain numbers it leaves a leading comma, i.e.
999999 = ,999,999. Please advise.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
