my $str;
$str = "12345678901234567";
$str =~ s/(\d)(?=(\d{3})+(?!\d))/$1,/g;
print $str;
//↓
//12,345,678,901,234,567
//になります。
2009年04月02日
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/28159932
この記事へのトラックバック
http://blog.sakura.ne.jp/tb/28159932
この記事へのトラックバック