perl如何实现经典排序算法

 我来答
连续用6a43aa2
2018-06-14 · TA获得超过3748个赞
知道大有可为答主
回答量:7283
采纳率:72%
帮助的人:626万
展开全部
基于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
];
1114326684
2018-06-14 · TA获得超过117个赞
知道小有建树答主
回答量:169
采纳率:42%
帮助的人:78.5万
展开全部
里面有sort函数,可进行简单 的排序。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式