数字のカンマ編集

$wk =~ s/(.*\d)(\d\d\d)/$1,$2/;とやって、
単純に　$1,$2をプリントしています。
桁数が４桁以上なら問題ないのですが、
桁数が４桁未満だとおかしな出方になります。

４桁未満の時の考え方を教えてください。
宜しくお願いします。

No.1 ベストアンサー 回答者： noname#147388 回答日時： 2011/09/09 14:47

http://www.din.or.jp/~ohzaki/perl.htm#NumberWith …

この回答へのお礼

早速ありがとうございました。
沢山書いてあるのでまだ読めていませんが、
後で全てやってみます。
多分出来ると思います。
ありがとうございました。

お礼日時：2011/09/09 17:46