ある数値に対して3桁ごとに区切る

質問

こんばんは。
Perl初心者で困っていることがあります。

例えば
$a = 1000;　という数値があるとします。

これを使い、「1 000(3桁ごとに区切る)」と表示させたいのです。
また、
$b = 1234567;とかでも
「1 234 567」と、このように3桁ごとに区切るためにはどのように表記したらよろしいでしょうか？

よろしくお願いいたしますm(_ _)m

回答No.1

JaritenCat · ベストアンサー

これが参考になるかもしれません。

http://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma
カンマのかわりに好きな区切り文字を入れてください。

お礼

ありがとうございます！

$a = 1000;
1 while $num =~ s/^([-+]?\d+)(\d\d\d)/$1 $2/;
print "$num\n";

これで、思うようにできましたm(_ _)m