電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

数字を3桁区切りで生成

Perlの正規表現を使用して、1万1億1兆の数字を3桁毎にカンマで区切って出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
sub comma($) {
	my $number = shift;
	while($number =~ s/(.*\d)(\d{3})/$1,$2/){1};
	return $number;
}
 
print comma(10000)."\n";
print comma(100000000)."\n";
print comma(1000000000000);
 
exit;

サンプルコードです。

10,000
100,000,000
1,000,000,000,000

出力結果です。

スポンサードリンク
スポンサードリンク