int(x+.5) округляет положительные значения к ближайшему целому. Округление сложнее.
Чтобы округлить к нулю:
int($x)
В приведенных ниже решениях включите следующее утверждение:
use POSIX;
Чтобы округлить: POSIX::floor($x)
Чтобы округлить: POSIX::ceil($x)
Чтобы округлить от нуля: POSIX::floor($x) - int($x) + POSIX::ceil($x)
Чтобы округлить до ближайшего целого числа: POSIX::floor($x+.5)
Обратите внимание, что int($x+.5) плохо работает для отрицательных значений. int(-2.1+.5) равен int(-1.6), который равен -1.
Ответ 4
вы можете:
use integer;
это объясняется Майклом Ратанапинатом или же использовать вручную:
$a=3.7;
$b=2.1;
$c=int(int($a)/int($b));
уведомление, 'int' не выполняется. это функция преобразования числа в целочисленную форму.
это потому, что Perl 5 не имеет отдельного целочисленного деления. Исключение - когда вы используете целое число. Тогда вы потеряете реальное деление.