Re: Round up 3 values to the next 100

Are you very specific about solving this with regex?
Instead of using substring or regex, I feel this approach is more logical.

#!/usr/bin/perl -w
use strict;

my $num = 786603;
my $rem = $num % 100;
$num += (100 - $rem) if ($rem > 0);
print $num."\n";
[download]

Comment on Re: Round up 3 values to the next 100 Download Code

Replies are listed 'Best First'.
Re^2: Round up 3 values to the next 100 by Anonymous Monk on Sep 13, 2010 at 11:00 UTC
Thanks - I'm using this in my code!	[reply]
Re^3: Round up 3 values to the next 100 by Anonymous Monk on Nov 05, 2011 at 23:02 UTC
Hi, how about this one? This is much more flexible by changing the value of $digit and simple in a one line. `function roundup($number, $digit = 100) { return ( is_numeric($number) && is_numeric($ digit) ) ? (ceil($numbe +r/$ digit)*$digit) : false; }` [download] Please feel free to contact me at chae@azstrada.com if you have any questions. Chae from Seoul Korea.	[reply] [d/l]
Re^4: Round up 3 values to the next 100 by choroba (Cardinal) on Nov 05, 2011 at 23:20 UTC
What language are you using? Does not seem to be Perl...	[reply]