Help for this page

Select Code to Download

Select or download this


use strict;
...
    my ( $val, $places ) = @_;
    return round( $val * ( 10 ** $places ) ) / ( 10 ** $places );
}