numberFormatter

use strict ; 
use warnings ; 

require 5.004;
use POSIX qw(locale_h);
# Get some of locale's numeric formatting parameters
my ($thousands_sep, $grouping) =
   @{localeconv()}{'thousands_sep', 'grouping'};

# Apply defaults if values are missing
$thousands_sep = ' ' unless $thousands_sep;
# grouping and mon_grouping are packed lists
# of small integers (characters) telling the
# grouping (thousand_seps and mon_thousand_seps
# being the group dividers) of numbers and
# monetary quantities.  The integers' meanings:
# 255 means no more grouping, 0 means repeat
# the previous grouping, 1-254 means use that
# as the current grouping.  Grouping goes from
# right to left (low to high digits).  In the
# below we cheat slightly by never using anything
# else than the first grouping (whatever that is).
my @grouping = () ;

if ($grouping) {
  @grouping = unpack("C*", $grouping);
} else {
  @grouping = (3);
}
# Format command line params for current locale
for (@ARGV) {
  $_ = int;    # Chop non-integer part
  1 while
  s/(\d)(\d{$grouping[0]}($|$thousands_sep))/$1$thousands_sep$2/;
  print "$_    ";
}
print "\n";

#source:http://www.perlmonks.org/?node_id=11.1.8
# author:John M. Dlugosz

---

syntax highlighted by Code2HTML, v. 0.9.1