本文我們學習如何用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。

按字母順序排列