3桁づつ区切ってカンマを付けるには？

[上に] [前に] [次に]
ベーアー 2000/03/28(火) 11:55:32
質問事項・・・オラクルよりデータを持ってきているのですが$COL[$i]には数値データが入ってきます。
             その数値データに３桁づつ区切ってカンマを付けていきたいのですが、以下のように作成したのですが、もっと
いい方法がperlで出来たら教えて頂きたいのですが・・・。お忙しい中申し訳ございませんが宜しくお願いします。
#金額に3桁づつにカンマを挿入#
 $i=2;
&nbsp;while($i<10){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;$count = $COL[$i] =~tr/0-9//;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;if($count==10 || $count==11 || $count==12){
&nbsp;&nbsp;$COL[$i] =~s/(\d*)(\d\d\d)(\d\d\d)(\d\d\d)/$1,$2,$3,$4/g;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;elsif($count==7 || $count==8 || $count==9){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;$COL[$i] =~s/(\d*)(\d\d\d)(\d\d\d)/$1,$2,$3/g;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;elsif($count==4 || $count==5 || $count==6){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;$COL[$i] =~s/(\d*)(\d\d\d)/$1,$2/g;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;}
&nbsp;$i++;
&nbsp;}
Syn [E-Mail] 2000/03/28(火) 12:00:22
もはや定番ですが、
http://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma
をごらんください。
andi 2000/03/28(火) 12:17:50
過去ログにもあったね。
ベーアー 2000/03/29(水) 11:07:06
[[解決]]
すみません。過去ログにもあり、参考にさせて頂きました。
有り難うございました。＞Ｓｙｎさん、ａnｄｉさん（＾＾）
また何かあったら、宜しくお願いします。
[上に] [前に] [次に]