How To Round Up A Number In Perl

Author: erics, Posted October 10th, 2011 at 10:17:15am

To round up to the nearest 5:

use Math::Round qw(nhimult);
$roundedUpNumber  = nhimult( 5, $originalNumber );

1 2	use Math::Round qw(nhimult); $roundedUpNumber = nhimult( 5, $originalNumber );

Cross-posted from PerlMonks:

sub roundUp {
    my $n = shift;
    return( $n == int($n) ? $n : int($n + 1) );
}

sub roundUp {

my $n = shift;

return( $n == int($n) ? $n : int($n + 1) );

}

All fields marked with "*" are required.