Question:

[Anonymous Monk]

say you have:
$half = 1/2;
and you want to print $half so it appears as:
.500

printf ("%.3f", $half);
gives:
0.500
how do i get rid of that extra zero?

[Anonymous Monk]

Use split() to get rid of it.

[Anonymous Monk]

sub _round {
my $digits = shift;
my $num = shift;

my $add = 5 * (10 ** -($digits + 1));

$num += $add;

my ($int,$frac) = split /\./,$num;

$frac = substr($frac, 0, $digits);

$num = join '.', $int, $frac;

return $num;
}