Rounding decimal numbers in perl, wrong result

Question

I hate decimal numbers. For 1.005 I don\'t get the result I expect with the following code.

#!/usr/bin/perl -w

use strict;
use POSIX qw(floor);

my $num = (         


        

Answer 1

floor() is not for rounding, it goes down to the nearest integer.

See this old post: How do you round a floating point number in Perl?