nite_man has asked for the wisdom of the Perl Monks concerning the following question:
Dear monks!
I need to round a number up nearest ten, hundred, thousand etc i.e. 7 should be 10, 23 -> 30, 112 -> 120, 1325 -> 1400 ...
So, I've created function to do this convertion:
This is the fist thing which has came to my mind. I'd like to see your variants of solving of this task. All suggestions will be appreciated.sub round_up { my $num = shift || die "Please, specify target number!"; my $length = length($num); my $first = substr($num, 0, 1); if($length > 2) { my $rest = substr($num, 1); $num = $first.('0'x($length - 1)) + ((substr($rest, 0, 1) + 1).('0'x(length($rest) - 1 +))); } elsif($length == 2) { $num = (substr($num, 0, 1) + 1) . ('0'x($length-1)); } else { $num = 10; } return $num; }
Thanks in advanced.
---
Michael Stepanov aka nite_man
It's only my opinion and it doesn't have pretensions of absoluteness!
20040928 Edit by Steve_p: Changed title from 'Rounding up nearest ten, handred etc'
|
---|
Back to
Seekers of Perl Wisdom