%expand% Perl Round Function %set(body,%html-clean({
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: ,

}))
   
Bracing against the wind  
www.documentroot.com  
Search this site:

View Archive

Free Blog Commenter & Counter

Memebot: Free Website Hosting

Americans for Approval Voting

2002 WTC Pics: Aug 12 Aug 16 Aug 30 Sep 11 Sep 23 Oct 24

Shop with Bitcoin At Amazon

Yvette's Weblog

All sites by me

Add to Google

RSS for this site

Lo! In the east against the blazing shadow of a rising sun, there come four men striding in unison, each step a journey, against the terrible winds.

[Powered by Blogger]

Thursday, May 08, 2008

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: ,


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

Home | Email me when this weblog updates: | View Archive

(C) 2002 Erik Aronesty/DocumentRoot.Com. Right to copy, without attribution, is given freely to anyone for any reason.

Listed on BlogShares | Bloghop: the best pretty good | Blogarama | Technorati | Blogwise