my $value1 = 14.4;
print "value1 = $value1\n";
my $value2 = 10 + 14.4 - 10;
print "value2 = $value2\n";
if ( $value1 == $value2 ) {
print "value 1 equals value 2\n";
} else {
print "value 1 does not equal value2\n";
}
####
value1 = 14.4
value2 = 14.4
value 1 does not equal value2
####
$number = 1.80;
$premium = $number * ( 1 + 10/100 );
$expected = 1.98;
print "Number 1 : $premium \n";
print "Number 2 : $expected \n";
print "Not" if $expected != $premium;
print "Equal !! ";
####
Number 1 : 1.98
Number 2 : 1.98
NotEqual !!
####
my $value2 = 10 + 14.4 - 10; # wrong evaluated
####
my $value2 = 14.4 + 10 - 10; # wrong evaluated
####
my $value2 = 10 - 10 + 14.4; # right evaluated
####
my $value2 = eval (10 + 14.4 - 10); # right evaluated
####
$number = 1.80;
$premium = eval ($number * ( 1 + 10/100 ));
$expected = 1.98;
print "Number 1 : $premium \n";
print "Number 2 : $expected \n";
print "Not" if $expected != $premium;
print "Equal !! ";
####
Number 1 : 1.98
Number 2 : 1.98
Equal !!