数字を三桁ずつカンマで区切る - Perl

この記事は2006年10月05日に書かれたものです。

価格の表示など、3桁毎に数字を区切りたいことがある。このような場合、どういった処理を書けば良いのだろうか? 次のような commify 関数を自分のライブラリに準備しておくとかなり重宝する。

サンプル

;#
;#カンマ区切り
;#
 
print commify(1234567890);
 
#----------------------------------------------#
#■数字を三桁ずつカンマで区切る
#----------------------------------------------#
sub commify{
  my $num = shift;
  my $i   = '';
  my $j   = '';
 
  if ($num =~ /^[-+]?\d\d\d\d+/g) {
    for ($i = pos($num) - 3, $j = $num =~ /^[-+]/; $i > $j; $i -= 3) {
      substr($num, $i, 0) = ',';
    }
  }
 
  return($num);
}

実行結果

1,234,567,890

参考

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
L R R F V