Here is my solution (it will "Dollize" an infinitely large number).
Okay, so it's not as elegant as Mark's. And it's klunky. But it
works. This requires two subroutines:
### DOLLIZE: Turn any number into a dollar format string
sub dollize { undef(@tmp); undef($tmp); $i = -1; @tmp = split/\./,(decimize($_[0])); if
($tmp[0]=~ /-/) { $tmp[0] =~ s/-//g; $neg = 1; } else { $neg = 0;
}
if (length($tmp[0]) > 3) { foreach (0..length($tmp[0])-1) { $tmp = $tmp
. substr($tmp[0],length($tmp[0])-1-$_,1); $i++; if ($i == 2
&&$_ ne (length($tmp[0])-1)) { $i = -1; $tmp = $tmp . ",";
} } $tmp = reverse($tmp); } else { $tmp =
$tmp[0]; }
if ($neg == 1) { $tmp = "(\$" . $tmp . "." . $tmp[1] . ")"; } else {
$tmp= "\$" . $tmp . "." . $tmp[1]; }
return $tmp;
}
### DECIMIZE: Make sure regular numbers have the proper number of
decimals
sub decimize { if ($_[0] =~ /\./) { @tmp=split/\./,$_[0]; if (length($tmp[1]) == 2) {
return $_[0]; } elsif (length($tmp[1]) == 1) {
return$_[0] . "0"; } elsif (length($tmp[1]) == 0) { return $_[0] .
"00"; } elsif (length($tmp[1]) > 2) { return $tmp[0] . "." .
substr($tmp[1],0,2); } else { # return int($_[0]*1000) / 1000; # For
float
rounding return $_[0]; } } elsif ($_[0] eq "") { return
"0.00"; } else { return $_[0] . ".00"; }
}
For MONEY types, this might also be helpful:
### NUMIZE: Change Currency strings into numbers
sub numize { $tmp = $_[0]; $tmp =~ s/[\$,]//g; if ($tmp =~ /\(/) { $tmp =~ s/[\(\)]//g;
$tmp = "-" . $tmp; } # $tmp = int($tmp*1000) / 1000; # For float rounding return $tmp;
}
On Friday, September 10, 1999 8:36 AM, Mark Wright
[SMTP:mwright@pro-ns.net] wrote:
>
> -----Original Message-----
> From: secret <secret@kearneydev.com>
> To: Herouth Maoz <herouth@oumail.openu.ac.il>
> Cc: pgsql-sql@postgreSQL.org <pgsql-sql@postgreSQL.org>
> Date: Thursday, September 09, 1999 3:31 PM
> Subject: Re: [SQL] Type Conversion: int4 -> Money
>
>
> >Herouth Maoz wrote:
> >
>
> ...
>
> > Perl... I ended up writing my own formatting function... It
has
> > one
> that
> >does ####.## however not one that'll do the nice 123,456.33 ... :)
> > Do you
> know
> >if there are any public modules that do such things?
>
>
> from the Perl Cookbook (a Perl-programmer must have!):
> sub commify
> {
> my $text = reverse $_[0];
> $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
> return scalar reverse $text;
> }
>
> If you want a locale-using solution, and can use C, there's code in
> the
> pgsql source that does this. Look at:
>
> /src/backend/utils/adt/cash.c cash_out()
>
>
>
>
> ************