欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Perl數(shù)組排序?qū)W習(xí)筆記

 更新時(shí)間：2015年06月08日 11:03:37   投稿：junjie  
這篇文章主要介紹了Perl數(shù)組排序?qū)W習(xí)筆記,本文講解了基于ASCII碼排序、按字母順序排列、Perl對(duì)數(shù)值排序等內(nèi)容,需要的朋友可以參考下

本文我們學(xué)習(xí)如何用Perl對(duì)字符串或者數(shù)字?jǐn)?shù)組進(jìn)行排序。

Perl有個(gè)內(nèi)置函數(shù)叫做sort毫無(wú)疑問(wèn)的可以排序一個(gè)數(shù)組。 其最簡(jiǎn)單的形式是傳遞一個(gè)數(shù)組，它會(huì)返回排序后的元素組成的數(shù)組。@sorted = sort @original。

基于ASCII碼排序

復(fù)制代碼 代碼如下:

#!/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;

上邊的例子將會(huì)打印
復(fù)制代碼 代碼如下:

$VAR1 = [
        'foo',
        'bar',
        'zorg',
        'moo'
      ];
 
$VAR1 = [
        'bar',
        'foo',
        'moo',
        'zorg'
      ];

第一個(gè)輸出顯示了排序前的數(shù)組，第二個(gè)是排序后的。

這是最簡(jiǎn)單的情形，但是可能未必是你想要的。 比如，如果一些單詞以大寫(xiě)字母開(kāi)頭怎么辦？

復(fù)制代碼 代碼如下:

my @words = qw(foo bar Zorg moo);
@sorted_names里的結(jié)果將是：

$VAR1 = [
        'Zorg',
        'bar',
        'foo',
        'moo'
      ];


你會(huì)發(fā)現(xiàn)，以大寫(xiě)字母開(kāi)頭的單詞排在了第一位。 這是因?yàn)閟ort默認(rèn)根據(jù)ASCII碼表排序，所有的大寫(xiě)字母都排在小寫(xiě)字母前邊。

比較函數(shù)

Perl的sort的工作方式是這樣的，它遍歷原始數(shù)組的每?jī)蓚€(gè)元素；每次把左邊的值放入變量$a，把右邊的值放入變量$b。 然后調(diào)用比較函數(shù)。如果$a的內(nèi)容應(yīng)該在左邊的話(huà)，“比較函數(shù)”會(huì)返回1；如果$b應(yīng)該在左邊的話(huà)，返回-1，兩者一樣的話(huà)，返回0。

通常你看不到比較函數(shù)，sort會(huì)根據(jù)ASCII碼表對(duì)值進(jìn)行比較，不過(guò)如果你想的話(huà)，你可以顯式的寫(xiě)出來(lái)：

復(fù)制代碼 代碼如下:

sort { $a cmp $b } @words;

這段代碼會(huì)跟沒(méi)有使用塊的sort @words達(dá)到同樣的效果。

這里你可以看到，默認(rèn)perl使用cmp作為比較函數(shù)。這是因?yàn)檎莄mp可以做這里邊我們需要的工作。 它比較兩邊的字符串的值，如果左邊參數(shù)“小于”右邊參數(shù)，就返回1；如果左邊參數(shù)“大于”右邊參數(shù)，就返回-1；如果相等，就返回0。

按字母順序排列
如果你想忽略字符串的大小寫(xiě)來(lái)排序——即通常所謂的字母序，你可以像下一個(gè)例子這么做：

復(fù)制代碼 代碼如下:

my @sorted_words = sort { lc($a) cmp lc($b) } @words;

這里為了比較，我們調(diào)用lc函數(shù)返回參數(shù)的小寫(xiě)版本。然后cmp比較這些小寫(xiě)版本并決定原始字符串誰(shuí)先誰(shuí)后。

結(jié)果是

復(fù)制代碼 代碼如下:

$VAR1 = [
        'bar',
        'foo',
        'moo',
        'Zorg'
      ];

Perl對(duì)數(shù)值排序
如果對(duì)數(shù)值數(shù)組使用sort進(jìn)行默認(rèn)的排序，結(jié)果可能不是我們期望的。

復(fù)制代碼 代碼如下:

my @numbers = (14, 3, 12, 2, 23);
my @sorted_numbers = sort @numbers;
say Dumper \@sorted_numbers;
$VAR1 = [
        12,
        14,
        2,
        23,
        3
      ];

仔細(xì)一想的話(huà)，這并不奇怪。比較函數(shù)看到12和3時(shí)，它按字符串進(jìn)行比較。這意味著比較兩個(gè)字符串的第一個(gè)字符"1"和"3"。 在ASCII碼表里，"1"在"3"前邊，因此字符串"12"會(huì)排在字符串"3"前面。

Perl不會(huì)很神奇地猜到你想按數(shù)字對(duì)這些值排序。

盡管我們可以寫(xiě)一個(gè)比較函數(shù)來(lái)按數(shù)字比較兩個(gè)值。但這里我們使用<=>（也被稱(chēng)作宇宙飛船操作符）， 它會(huì)按數(shù)字來(lái)比較兩個(gè)參數(shù)并返回1、-1或者0。

復(fù)制代碼 代碼如下:

my @sorted_numbers = sort { $a <=> $b } @numbers;

結(jié)果是：

復(fù)制代碼 代碼如下:

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

相關(guān)文章

最新評(píng)論