Re: Question:

[Anonymous Monk]

in reply to Question:
in thread Using (s)printf()

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;
}