Perl Round Function
Posted 4:16 PM

Yes, you can't find this easily on the web. What you get is people telling you to import posix, or do some wacky one-off thing that works half the time. This is the only solution you'll ever need... it should be a builtin.

# round to any decimal place
sub round {
        my ($n,$d) = @_;
        return int($n/(10**$d) + .5 * ($n <=> 0)) * (10**$d);
}

Labels: perl, programming

[View/Post Comments] [Digg] [Del.icio.us] [Stumble]