处理分数

jason680

回复 2# nixiaoweihunter


if ($a=$b){
   print "always true for \$a=\$b\n";
}

jason680

回复 1# jiujiujiu338

变通一下,我的比较靠谱(但不完全,但可以解决90%的问题了..)   

$ cat number.pl
#!perl
use strict;
use warnings;

my $a=10/3;
my $b=(1/3)*10;
if ( $a == $b ){
        print "\$a, success!\n";
}
else{
        print "\$a, failure!\n";
}
if ( $a * 3 == $b *3 ){
        print "\$a*3, success!\n";
}
else{
        print "\$a*3, failure!\n";
}

$ perl number.pl
$a, failure!
$a*3, success!

jason680

回复 9# zhlong8

>>另外楼上在不靠谱的路上越走越远了

我知道不一定靠谱....(但能解决一些问题....)

给个理由吧....让大家信服,也学习一下.....