perl 高级操作符 <=>

1.升序排序

@number=qw/5 10 15 3 2 4 8 6/;

my @descending =sort {$a<=>$b} @number;                                                                    

print "@descending\n";

2.降序排序

@number=qw/5 10 15 3 2 4 8 6/;

my @descending =sort {$b<=>$a} @number;                                                                    

print "@descending\n";