Perl基本数组排序方法介绍
更新时间：2015年06月16日 09:23:07 投稿：junjie
这篇文章主要介绍了Perl基本数组排序方法介绍,本文讲解基于ASCII码排序、比较函数、按字母顺序排列、Perl对数值排序等内容,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
本文我们学习如何用Perl对字符串或者数字数组进行排序。
Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组，它会返回排序后的元素组成的数组。@sorted = sort @original。
基于ASCII码排序
复制代码 代码如下:
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Data::Dumper qw(Dumper);
my @words = qw(foo bar zorg moo);
say Dumper \@words;
my @sorted_words = sort @words;
say Dumper \@sorted_words;
上边的例子将会打印
复制代码 代码如下:
$VAR1 = [
'foo',
'bar',
'zorg',
'moo'
];
$VAR1 = [
'bar',
'foo',
'moo',
'zorg'
];
第一个输出显示了排序前的数组，第二个是排序后的。
这是最简单的情形，但是可能未必是你想要的。 比如，如果一些单词以大写字母开头怎么办？
复制代码 代码如下:
my @words = qw(foo bar Zorg moo);
@sorted_names里的结果将是：
复制代码 代码如下:
$VAR1 = [
'Zorg',
'bar',
'foo',
'moo'
];
你会发现，以大写字母开头的单词排在了第一位。 这是因为sort默认根据ASCII码表排序，所有的大写字母都排在小写字母前边。
比较函数
Perl的sort的工作方式是这样的，它遍历原始数组的每两个元素；每次把左边的值放入变量$a，把右边的值放入变量$b。 然后调用比较函数。如果$a的内容应该在左边的话，“比较函数”会返回1；如果$b应该在左边的话，返回-1，两者一样的话，返回0。
通常你看不到比较函数，sort会根据ASCII码表对值进行比较，不过如果你想的话，你可以显式的写出来：
复制代码 代码如下:
sort { $a cmp $b } @words;
这段代码会跟没有使用块的sort @words达到同样的效果。
这里你可以看到，默认perl使用cmp作为比较函数。这是因为正是cmp可以做这里边我们需要的工作。 它比较两边的字符串的值，如果左边参数“小于”右边参数，就返回1；如果左边参数“大于”右边参数，就返回-1；如果相等，就返回0。
按字母顺序排列
如果你想忽略字符串的大小写来排序——即通常所谓的字母序，你可以像下一个例子这么做：
复制代码 代码如下:
my @sorted_words = sort { lc($a) cmp lc($b) } @words;
这里为了比较，我们调用lc函数返回参数的小写版本。然后cmp比较这些小写版本并决定原始字符串谁先谁后。
结果是
复制代码 代码如下:
$VAR1 = [
'bar',
'foo',
'moo',
'Zorg'
];
Perl对数值排序
如果对数值数组使用sort进行默认的排序，结果可能不是我们期望的。
复制代码 代码如下:
my @numbers = (14, 3, 12, 2, 23);
my @sorted_numbers = sort @numbers;
say Dumper \@sorted_numbers;
$VAR1 = [
12,
14,
2,
23,
3
];
仔细一想的话，这并不奇怪。比较函数看到12和3时，它按字符串进行比较。这意味着比较两个字符串的第一个字符"1"和"3"。 在ASCII码表里，"1"在"3"前边，因此字符串"12"会排在字符串"3"前面。
Perl不会很神奇地猜到你想按数字对这些值排序。
尽管我们可以写一个比较函数来按数字比较两个值。但这里我们使用<=>（也被称作宇宙飞船操作符）， 它会按数字来比较两个参数并返回1、-1或者0。
复制代码 代码如下:
my @sorted_numbers = sort { $a <=> $b } @numbers;
结果是：
复制代码 代码如下:
$VAR1 = [
2,
3,
12,
14,
23
];
相关文章
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中2013-02-02
这篇文章主要介绍了Perl集群配置管理系统Rex简明手册,自动化运维的一个管理工具,需要的朋友可以参考下2014-06-06
本文为大家介绍perl的cgi高级编程方面的知识，供大家学习参考2013-02-02
Perl学习基本备忘录，包括perl数组、命令行执行perl语句、perl引号规则、变量初始化、perl特殊变量等，有需要的朋友，可以参考下2013-02-02
这篇文章主要介绍了Perl中的文件读写学习笔记,本文讲解了打开、关闭文件、读文件、写文件、判断文件状态等内容,需要的朋友可以参考下2015-02-02
Deparse 模块是一个很好的打印机，它可以揭开 Perl 代码神秘的面纱，帮助你理解优化器为你的代码做了那些转换。换言之，它会重新生成Perl代码，试着略去一些晦涩难懂的部分，把代码用一致的格式写出来2013-03-03
Linux/Unix下安装Perl模块有两种方法：手工安装和自动安装。一是从CPAN上下载需要的模块，手工编译、安装。二是联上internet，使用一个叫做CPAN的模块自动完成下载、编译、安装的全过程2013-02-02
our 和 my 一样，都是对变量的声明，不过 our 声明的是包全局变量，而 my 声明的是词法变量2013-02-02
这篇文章主要介绍了perl读写文件代码实例,本文直接给出实现代码,需要的朋友可以参考下2015-05-05
perl 用grep map求交集、并集、补集的例子，有需要的朋友可以参考下2013-02-02
最新评论