在perl中经常使用sort 和 <=> 操作配合使用为一组数据进行排序,用法如下:
@arrs=(10 11 12 13 14 15 16 17 18 19 20 7);
@arrs = sort {$a <=> $b} @arrs;
运行上述代码可以得到@arrs=(7 10 11 12 13 14 15 16 17 18 19 20)。
“<=>”是 Spaceship operator——太空船操作符:三向的比较数字操作符
$a<=>$b 这个操作符比较两个数字,依据结果返回-1,0,1。
$a>$b,返回1
$a=$b,返回0
$a<$b,返回-1
eg:
$a = 4<=> 7; # $a is set to -1
$a = 9 <=> 5; # $a is set to 1
$a = 3<=> 3; # $a is set to 0