Perlで切り上げ（ceil）と切り捨て（floor）を使う

というか、こういうのがモジュールにあるのを知らなかった。

#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
 
my @vars = (1, 0.999, 0.9, 0.1, -0.1, -0.9, -0.999, -1);
 
foreach my $var (@vars) {
    print "Target is $var\n";
    print "ceil  : ", ceil($var), "\n";
    print "floor : ", floor($var), "\n";
    print "int   : ", int $var, "\n";
}

use POSIX;

とすることで、ceilとfloorが使えるようになる。
便利だね。