麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

淺析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;


結果是:

?

?

?


$VAR1 = [
??????? 2,
??????? 3,
??????? 12,
??????? 14,
??????? 23
????? ];

以上就是關于淺析Perl基本數組排序方法,相信認真看完的朋友都已經懂了,看了小編的介紹之后趕快收藏起來,分享給你們的小伙伴們吧!

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 中文字幕亚洲视频 | 九一免费国产 | 亚洲免费视| 欧美精品久久久久久久久久 | 中文字幕在线永久 | 欧洲精品视频在线观看 | 欧美日韩国产成人在线 | 毛片一区二区三区四区 | 午夜视频在线观看91 | 曰批全过程120分钟免费69 | 一级黄色片武则天 | 中国hdxxxx护士爽在线观看 | 色综合视频| 在线成人亚洲 | 国产乱淫a∨片免费观看 | 久久99精品久久久久久青青日本 | 一级性生活免费视频 | 国产精品视频专区 | 日日噜噜噜噜久久久精品毛片 | 日韩大片在线永久观看视频网站免费 | 久久精品性视频 | 久久精品性视频 | av亚洲在线观看 | 亚洲精品av在线 | 精品一区二区三区免费看 | 黄色网址入口 | 日本在线观看中文字幕 | 中午字幕无线码一区2020 | 一级黄色大片在线观看 | 欧美成人精品一级 | 成人性生活视频 | 色网站综合 | 国产成人综合在线观看 | 日本黄色大片免费观看 | 成人免费影院 | 久久av免费 | 色污视频在线观看 | 久久久www成人免费精品 | 精品国产99久久久久久宅男i | 爱高潮www亚洲精品 chengrenzaixian | 亚洲成人免费影视 |