- or download this
my $x = 1.1 - 1.0;
print(qq[$x <= 0.1 ? ] . ($x <= 0.1 ? q[yes] : q[no] ));
- or download this
my $x = 1.0 - 0.9;
print(qq[$x <= 0.1 ? ] . ($x <= 0.1 ? q[yes] : q[no] ));
- or download this
~$: perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi