commify

   1 #!/usr/bin/env perl
   2
   3 # commify
   4 # File ID: 895db0b6-5d37-11df-92d4-90e6ba3022ac
   5 # Setter inn understrek i nummer.
   6
   7 use strict;
   8 use warnings;
   9 use Getopt::Std;
  10
  11 our $opt_s;
  12
  13 getopts('s:');
  14
  15 defined($opt_s) || ($opt_s = "_");
  16
  17 while (<>) {
  18         s/(\d{3,})/commify($1)/ge;
  19         print;
  20 }
  21
  22 sub commify {
  23         my $Str = reverse $_[0];
  24         $Str =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1$opt_s/g;
  25         return scalar reverse $Str;
  26 } # commify()