#!/usr/bin/perl -w use strict; #tested on Active State 10.1 for Windows my $a = 000.76; #note: 0.76 works ok # "000.76" works ok # 00.76 fails # 000.76 fails my $b = 4; my $c = $a * $b; print "$c\n"; #304 not 3.04!! WHOA my $x = 000.76; print "$x\n"; #prints 076 $x = 000.76; $x +=0; print "$x\n"; #prints 76 my $y=0.76; print "$y\n"; #prints 0.76
In reply to Re^2: Perl with precision
by Marshall
in thread Perl with precision
by AlienSpaces
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |