perl笔记之排序

发布时间：2020-12-16 00:42:54 所属栏目：大数据来源：网络整理

导读：有如下三组代码用大小进行排序 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 9 0 2 1 0 2001 42 -40 98.6 2.71828 传统的sort排序只能按照ascii排序不能按照数字的大小进行排序用如下代码进行排序 #!/usr/bin/perl while () { push @numbers,split;?

有如下三组代码用大小进行排序

17 1000 04 1.50 3.14159
-10 1.5 4 2001 90210 666
9 0 2 1 0
2001 42 -40 98.6 2.71828

传统的sort排序只能按照ascii排序不能按照数字的大小进行排序

用如下代码进行排序

#!/usr/bin/perl
while (<>) {
push @numbers,split;????????? #每行以空格做分解符，存入@numbers

}
foreach (sort {$a<=>$b} @numbers){????
print "$_n";
}

sort {$a<=>$b} @numbers的语句等价于

sub????by_number{
if $a>$b{1}
elsif $a<$b{-1}
else $a=$b{0}
}
简写
sub by_number{
$a<=>$b
}

结果

-40 -10 0 0 1 1.50 1.5 2 2.71828 3.14159 04 4 9 17 42 98.6 666 1000 2001 2001 90210

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!