RE: Round a Number to Any Place

[tye]

Nice work. Here are, I think, two improvements:

sub round {
    my( $num, $prec )= @_;
    return  int( $num/$prec + 0.5 - ($num<0) ) * $prec;
}

This is slightly simpler and rounds negative numbers properly.

        - tye (but my friends call me "Tye")

[nuance]

We've done this number rounding thing before. Have a look at the thread following this node to see why the 0.5 thing isn't quite exact.

Nuance