You don't mention how you wish to treat negative values? The problem with POSIX::ceil and other methods offered so far is that they round positive numbers towards infinity and negative numbers towards zero.

In many calculations, if you expect the result of two similar calculations done with negative and positive values to balance each other (eg. debit + credit = 0), then these methods will result in erroneous results.

If this is important to your application you should round all your values in the same absolute direction. That is to say, if you are rounding your positive values away from zero (ie. up) then you should also round your negative values away from zero.

sub ceil_2dp($) { 
    my $num=shift()*1e2;        # x 100
    return int($num) == $num    # It had exactly 2dp.
         ? $num/1e2             # return  it as it was
         : $num < 0             # less than zero
             ? int(--$num)/1e2  # -1 int and div
             : int(++$num)/1e2; # else +1 and div
}
for (1.2818, 1.1213, 234.33, 32.1323, 55.6274, -1.2818, -1.1213, -234.
+33, -32.1323, -55.6274) {
    print ceil_2dp( $_ ) . $/;
}
__END__
1.29
1.13
234.33
32.14
55.63
-1.29
-1.13
-234.33
-32.14
-55.63
[download]

use POSIX qw(ceil);
my $rounded = ceil($i*100) / 100;
[download]

my @nums = ( 1.2818, 1.1213, 234.33, 32.1323, 55.6274 );

print ceil($_), "\n" for @nums;

sub ceil {
    my $num = shift;
    $num *= 100;
    $num = $num == int( $num ) ? $num : int(++$num);
  return $num/100;
}

__DATA__
1.29
1.13
234.33
32.14
55.63
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Interesting problem... perhaps you could multiply the number by 1000, mod by 10, and if true, then add 10, div by 10 (get integer only), then divide by 100. Not the best of ways, but logically would seem to work....

Sample 1: 1.1213

1. 1.1213 * 1000 = 1121.3
2. 1121.3 % 10 = 1
3. 1121.3 + 10 = 1131.3
4. 1131.3 / 10 = 113
5. 113 / 100 = 1.13

Sample 2: 234.33

1. 234.33 * 1000 = 234330
2. 234330 % 10 = 0
3. 234330 / 10 = 23433
4. 23433 / 100 = 234.33

Please find a way to do this

Are you assigning tasks or do you want help?

(as you've been told, POSIX::ceil() is the hint you need.)

> perldoc -q round

Found in C:\Perl\lib\pod\perlfaq4.pod
  Does Perl have a round() function?  What about ceil() and floor()?  
+Trig functions?

            Remember that int() merely truncates toward 0. For roundin
+g to a
            certain number of digits, sprintf() or printf() is usually
+ the
            easiest route.

                printf("%.3f", 3.1415926535);       # prints 3.142
[download]

Update: Ah, my mistake. You always want it to round up. How odd. :) Yeah, see BrowserUK's solution.

bbfu
Black flowers blossum
Fearless on my breath