浅析Perl基本数组排序方法

2020-02-23 19:46:28

字体：大中小

来源：转载

供稿：网友

Perl被称为sort的内置函数，它可以对数组进行排序，最简单的形式是传递一个数组，然后让它返回排序元素的数组，下面是武林技术频道小编为大家分享的浅析Perl基本数组排序方法。

基于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;

结果是：

以上就是关于浅析Perl基本数组排序方法，相信认真看完的朋友都已经懂了，看了小编的介绍之后赶快收藏起来，分享给你们的小伙伴们吧!

上一篇：Perl 与 Python 之间的一些异同整理

下一篇：Perl时间处理函数用法介绍

学习交流

笔记本开机提示error loading os错误的问

笔记本开机提示error loading os错误的问题怎么解决...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

拉卡拉与华为软件签订《业务合作框架协议》开展手机POS收款

2020-02-23 17:28:12

中国联通：三季度力争完成全国25万5G基站建设

2020-02-23 17:24:45

雷军：小米成立10年收入突破2000亿

2020-02-23 14:27:16

特斯拉：无钴，不代表一定是磷酸铁锂电池

2020-02-22 09:45:28

豌豆荚宣布业务调整将于2月28日关闭PC版在线服务

2020-02-22 09:42:20

小米集团宣布人事任命：联合创始人王川担任小米集团首席战略官

2020-02-22 09:39:07

疑难解答

图片精选

网友关注