fork download
copy 
  1. use strict;
  2. use warnings;
  3.  
  4. # http://w...content-available-to-author-only...r.jp/~ohzaki/perl.htm
  5. # http://o...content-available-to-author-only...e.jp/qa/q6999666.html
  6. # http://o...content-available-to-author-only...e.jp/qa/q7000221.html
  7.  
  8. while(<>){
  9.     1 while $_ =~ s/^([-+]?\d+)(\d\d\d)/$1,$2/;
  10.     print $_;
  11. }
Success #stdin #stdout 0s 4728KB
comments (?)
stdin
copy 
1
123
1234
12345
123456789
stdout
copy 
1
123
1,234
12,345
123,456,789
https://ideone.com/hkaPM
language:
Perl (perl 5.28.1)
created:
14 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!