一样的
@data = ( 0, 1, 2, 3, -5, -4, -3, -2, -1);@data = sort {$b<=>$a} @data; #由大至少print "@data$/"; # 3 2 1 0 -1 -2 -3 -4 -5@data = sort {$a<=>$b} @data; #由小至大print "@data$/"; #-5 -4 -3 -2 -1 0 1 2 3
