perl
#!/bin/perl
@number=qw/5 10 15 3 2 4 8 6 /;
my @descending =sort {$a <=> $b} @number;#这里$a=5,$b=10,因为$a在前,perl得到的结果是小数在前,也就是升序排列
print "@descendingn";#!/bin/perl
@number=qw/5 10 15 3 2 4 8 6 /;
my @descending =sort {$a <=> $b} @number;#这里$a=5,$b=10,因为$a在前,perl得到的结果是小数在前,也就是升序排列
print "@descendingn";
评论
0评论加载中…