電線の画像

Pointgets.net

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

数字を4桁区切りで生成

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

#!/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{4})/$1,$2/){1};
	return $number;
}
 
print comma(10000)."\n";
print comma(100000000)."\n";
print comma(1000000000000);
 
exit;

サンプルコードです。

1,0000
1,0000,0000
1,0000,0000,0000

出力結果です。日本円は、数字を4桁毎にカンマで区切った方が分かり易いです。

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