引数をカンマ句切りしたデータにしたいです。

質問

お世話になります。

Perlのプログラムの中で、
引数の数値を、後ろから３桁毎にカンマ句切りして
表示したいと思っています。
（例）

10000000 →　10,000,000

カンマを入れる方法を教えてください。

よろしくお願いいたします。

回答No.2

alfeim · ベストアンサー

$numに数値が入っているとして・・・

while($num =~ s/(.*\d)(\d\d\d)/$1,$2/){;}

で行けたはず・・・一応Cygwin上のPerlで確認した所動くようです。

お礼

無事に動作いたしました。
ありがとうございました。

回答No.1

oodaiko

pion16 さんこんばんは。こんな感じのサブルーチンで
いかがでしょうか。
一応テスト済みなので試してみて下さい。

*******************************************

#!/usr/local/bin/perl
$number=<> ;
&thousands;
print "commanumber=$commanumber\n";

#以下が主要部分
sub thousands {
$commanumber="";
chomp($number); # 改行コードを切り落とす

# ３桁ごとにカンマを入れていく
while(){
# 残りが３桁以下ならおしまい
if(length($number)<=3){
$commanumber="$number" . "$commanumber" ;
last;
}
$numberlength=length($number); # データの桁数を調べる
$pnumber=substr($number,-3); # 下から３桁とりだし
$commanumber="," . "$pnumber" . "$commanumber"; # カンマをつけて出力文字列につなぐ
$number=substr($number,0,$numberlength - 3); # 下３桁を取り除いて新たなデータとする
next;
}

}

exit;

お礼

出来ました。
詳細のわかりやすいご説明ありがとうございます。