Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Best way to round a number.

by Marshall (Monsignor)
on Oct 25, 2012 at 05:15 UTC ( #1000761=note: print w/replies, xml ) Need Help??

in reply to Best way to round a number.

Another possibility:
use strict; use warnings; my @nums = qw (0 1 4 5 6 11 14 15 16 20 24 25 26 30 34 35 36); foreach (@nums) { print "in=$_\t rounded=", round_nearest5($_), "\n"; } sub round_nearest5 # for an positive integer numeric value { my $in = shift; my ($last_digit) = $in =~ /(\d)\s*$/; if ($last_digit <5 and $in >= 10 ) { $in =~ s/(\d)$/0/; } elsif ($last_digit >=5) { $in += (10-$last_digit); } return $in; } __END__ in=0 rounded=0 in=1 rounded=1 in=4 rounded=4 in=5 rounded=10 in=6 rounded=10 in=11 rounded=10 in=14 rounded=10 in=15 rounded=20 in=16 rounded=20 in=20 rounded=20 in=24 rounded=20 in=25 rounded=30 in=26 rounded=30 in=30 rounded=30 in=34 rounded=30 in=35 rounded=40 in=36 rounded=40

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1000761]
[Corion]: haukex: Yes, that approach is sane, and it heals the fragility of Pod parsers in a nice way while still syntax-checking stuff
[choroba]: Unfortunately, none of it is online
[haukex]: I figured that POD tests make sense, but only as author tests
[choroba]: I mean, the slides are, but not the makefile with scripts to create them
[Corion]: haukex: I've only now arrived at that revelation ;)
[Corion]: choroba: I use spod5, which also has that support, and also implements its own kinda-make stuff
[haukex]: But that module I just linked to assumes that most verbatim blocks are runnable code, I have other modules where that's not the case, so there I just copy-and-paste the synopsis into the author tests...
[haukex]: not the most efficient, but then again, I don't have that many modules on CPAN :-)
[Corion]: haukex: Yes, but if it's only supposed to run on my machine, I can be far more liberal with how I extract the code etc.
[Corion]: haukex: Yes - I see the benefit of using Dist::Zilla for people with 150+ modules on CPAN, but I don't see it for myself, and I'm always put off from contributing to such modules because they require a lot of toolchain setup that I don't want to ...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2017-02-27 12:29 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (385 votes). Check out past polls.