2020-06-10 10:32脚本之家 perl
perl高级排序的关键在于要指定排序的方式，使用的操作符是spaceship operator（<=>)
按照要求进行的排序：
#!/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 "@descending\n";
结果如下：
F:\>perl\a.pl
2 3 4 5 6 8 10 15
F:\>
如果要降序排列，只要把程序的第二行变成sort{$b<=>$a}就可以了：
#!/bin/perl
@number=qw/5 10 15 3 2 4 8 6 /;
my @descending =sort {$b<=>$a} @number;
print "@descending\n";
结果如下：
F:\>perl\a.pl
15 10 8 6 5 4 3 2
F:\>
Perl的经典用法分享，学习perl的朋友可以参考下 ...
这篇文章主要介绍了perl命令行参数内建数组@ARGV浅析,本文重点在于讲解@ARGV的用法,并通过实例来说明,需要的朋友可以参考下 ...
有时候我们需要从文件中读取字符串，这里简单介绍下， 需要的朋友可以参考下 ...
哪些平台上有 Perl?要到哪里去找? Perl的标准发行版(由 perl 发展小组负责维护)仅以原始码形式发行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz处取得。这个档...
perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边 ...
perl 中的vars是perl中的一个pragma(预编译指示符），专门用来预定义全局变量，这些预定义后的全局变量在qw()列表中，在整个引用perl文件中皆可使用，即便使...
这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小...
这篇文章主要介绍了Perl使用nginx FastCGI环境做WEB开发实例,实现了路由系统和模板系统,需要的朋友可以参考下...
