Perl で、数字（数値）を3桁ごとにカンマ（,）で区切る方法

まぁ、こんな感じ？他にもっといい方法はありそう。

#!/usr/bin/perl

my $num = 123456789;
print comman($num);

sub comma {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}

1;

トラックバック URL: https://perltips.twinkle.cc/trackback/256

Posted on 2007-10-23 by yas |

Perl