2009-12-24から1日間の記事一覧
価格などの数値を表示する場合によく使う処理ですな。 my $str = "-111111111111.1111"; sub commify { my $text = reverse($_[0]); $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g; return scalar(reverse($text)); } print(commify($str));
価格などの数値を表示する場合によく使う処理ですな。 my $str = "-111111111111.1111"; sub commify { my $text = reverse($_[0]); $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g; return scalar(reverse($text)); } print(commify($str));