perl的sort对浮点数排序是不是有问题？
perl的sort对浮点数排序是不是有问题？

奇怪！
[解决办法]
可能问题出在精度上
[解决办法]
sort默认按照字符串顺序排列，想要实现数字排序，需要字节写一个，当然，很简单。
[解决办法]
print(sort {a > b} (1.0, 9.5 , 10.5))
[解决办法]
本帖最后由 fibbery 于 2013-03-13 15:14:43 编辑

use strict;
use warnings;


my @array=(1.0, 2.5, 9.5, 10.5,21.2);
@array=sort {$a <=> $b} (@array);#数字比较
print("@array\n");

@array=sort {$a cmp $b} (@array);#default
print("@array\n");

@array=sort {$a gt $b?1:$a eq $b?0:-1} (@array);
print("@array\n");