Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Re: Question:

by Anonymous Monk
on Jun 25, 2002 at 18:23 UTC ( #177165=note: print w/ replies, xml ) Need Help??


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

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


Comment on Re: Re: Question:

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177165]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-11-28 12:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (196 votes), past polls