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

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

奇怪！
------解决方案--------------------
可能问题出在精度上
------解决方案--------------------
sort默认按照字符串顺序排列，想要实现数字排序，需要字节写一个，当然，很简单。
------解决方案--------------------
print(sort {a > b} (1.0, 9.5 , 10.5))
------解决方案--------------------

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");