まぁ、こんな感じ?他にもっといい方法はありそう。 #!/usr/bin/perl my $num = 123456789; print comman($num); sub comma { local($_) = @_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; } 1;
まぁ、こんな感じ?他にもっといい方法はありそう。 #!/usr/bin/perl my $num = 123456789; print comman($num); sub comma { local($_) = @_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; } 1;
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く