Hey Reggie - why are your messages getting posted 2,3,or 4 times? > -----Original Message----- > From: Dan Muey [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, January 15, 2003 5:26 AM > To: Dan Muey; Beau E. Cox; Johnson, Reginald (ECCS); [EMAIL PROTECTED] > Subject: RE: printing number with commas in it > > > > > > -----Original Message----- > > From: Dan Muey > > Sent: Wednesday, January 15, 2003 9:19 AM > > To: Beau E. Cox; Johnson, Reginald (ECCS); [EMAIL PROTECTED] > > Subject: RE: printing number with commas in it > > > > > > > Hi Reggie! > > > > > > > -----Original Message----- > > > > From: Johnson, Reginald (ECCS) [mailto:[EMAIL PROTECTED]] > > > > Sent: Tuesday, January 14, 2003 11:32 AM > > > > To: '[EMAIL PROTECTED]' > > > > Subject: printing number with commas in it > > > > > > > > > > > > I am trying to print a number with commas in it. I cannot > > find the > > > > correct syntax to do this with printf. I considered using > > the substr > > > > function but this depends on mealways knowing the size of the > > > > number. Can you help me with this? > > > > > > > > > > > > Reggie > > > > > > > > > > From the Perl Cookbook (2.17): > > > > > > sub commify > > > { > > > my $text = reverse $_[0]; > > > $text =~ s/(\d\d\d)(?=\d)(?!\d*.)/$1,/g; > > > scalar reverse $text; > > This last bit didn't reverse it back so I tried > > $text = reverse $text; > > And that turned it back around but the regex added no > > commas!! Any body have any ideas on this one? I tried : > > > > $num = '123456'; > > &commify("$num"); > > > > sub commify > > { > > my $text = reverse $_[0]; > > $text =~ s/(\d\d\d)(?=\d)(?!\d*.)/$1,/g; > > print "\n$text \n "; > > $text = reverse $text; > > print "\n$text\n"; > > } > > And got : ( $_[0] was 123456 ) > > > > 123456 > > > > 654321 > > > > 123456 > > > > See no commas! What to do for regex ? > > It was : > $text =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; > Mentioned in another post > > > > } > > > > > > Baring my typos, this works on a numeric string > > > even with a decimal point. > > > > > > Aloha => Beau; > > > > > > > > > > > > -- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > >
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
