Perl List::Util模組使用執行個體_perl

在Perl中有一些專門用於處理列表資料的模組，比如說List::Util模組，該模組包含在標準庫中，能提供各種高效的常見列表處理工具。因其用C語言來實現，速度一般都挺快！

【例01】掃描合格某個列表，並取出第一個合格
常規做法:

複製代碼 代碼如下:

use 5.010; 
my @names  = qw(Wendy Jerry Betty Wendy Alice); 
foreach  (@names) { 
    if (/\bWendy\b/i) { 
        $match = $_; 
        last; 
    } 
} 
say $match;     

如果改用List::Util模組提供的first子程式，就要簡單的多

複製代碼 代碼如下:

use List::Util qw(first); 
my $match = first {/\bWendy\b/i} @names;  #找到第一個Wendy即終止 
如果換成數位話，比如要求

【例02】求1到1000之間的和
常規做法:

複製代碼 代碼如下:

use 5.010; 
my $total = 0; 
foreach (1..1000) { 
    $total += $_; 
} 
say $total;               #結果500500 

如果改用List::Util模組提供的sum子程式，同樣很簡單:

複製代碼 代碼如下:

use List::Util qw(sum); 
my $total = sum(1..1000); #結果500500 

【例03】求一組數位最大值與最小值.
常規做法:

複製代碼 代碼如下:

#! /usr/bin/perl;   
use utf8;   
   
sub max {   
   my($max_so_far) = shift @_; #數組中第一個值，暫時當成最大值。   
   foreach(@_){                #遍曆數組@_   
   if($_>$max_so_far){         #看其它元素是否有比$max_so_far大的值。   
    $max_so_far = $_;}         #如果有話，更新最大值變數   
   }   
   $max_so_far;   
}   
   
my $_MaxData = &max(2,3,8,5,10);   
print $_MaxData;               #結果為10 

如果改用List::Util模組提供的max子程式，則非常簡單:

複製代碼 代碼如下:

use List::Util qw(max); 
my $max = max(2, 3, 8, 5, 10); 
print $max;                 #結果為10 

同樣道理，使用List::Util模組提供的min子程式，可求最小值:

複製代碼 代碼如下:

use List::Util qw(min); 
my $min = min(2, 3, 8, 5, 10);  #最小值為2 

【例04】對一組字串進行排序
如果用常規方法的話，必須按順序一個個進行比較，用List::Util的maxstr子程式可以輕鬆實現:

複製代碼 代碼如下:

use List::Util qw(maxstr); 
my  $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ ); 
print $max_str; 

【例05】對列表中的元素隨機排序
如果用常規方法的話，很難實現，而用List::Util中的shuffle子程式，則非常簡單，一條命令搞定！

複製代碼 代碼如下:

use List::Util qw(shuffle); 
my @shuffled_nums = shuffle(1..10);   # 3 9 8 5 6 4 1 10 2 7                 
my @shuffled_name = shuffle('A'..'G');# F E G A B D  

【例06】檢查列表中是否沒有某個元素，或者有任何元素，或者所有元素都符合條件。支援類似grep文法
如果用常規方法的話，很難實現，而用List::MoreUtils同樣很容易實現，代碼如下:

複製代碼 代碼如下:

use List::MoreUtils qw(none any all); 
my @numbers = qw(7 4 1 3 78); 
if (none {$_ > 100} @numbers) {print "No elements over 100\n"; }  
elsif (any {$_ > 50}@numbers) {print "Some elements over 50\n";} 
elsif (all {$_ <10} @numbers) {print "All elements < 10\n";} 
NOTE: List::MoreUtils非內建的模組，需要下載.

【例07】同時處理多個姓名列表，每次取出2位

複製代碼 代碼如下:

use List::MoreUtils qw(natatime);  
my @names_1 = qw(Alice Bob Carly); 
my @names_2 = qw(David Edward Foo); 
my $names   = natatime(2, @names_1, @names_2);  #natatim (N at a time:同時處理N組)有多個列表的話往裡面放就好了 
while (my @name = $names->()) {                 #遍曆，方便後面輸出 
    print "Got @name\n"; 
} 
#輸出結果 
Got Alice Bob 
Got Carly David 
Got Edward Foo 

【例08】合并多個列表為一個列表

複製代碼 代碼如下:

use List::MoreUtils qw(mesh); 
my @array_1 = 'A' .. 'D'; 
my @array_2 = 1 .. 4; 
my @array_3 = qw( jerry alice wendy ); 
my @array_new = mesh(@array_1, @array_2, @array_3); 
print @array_new; 
#輸出結果: 
A=>1=>jerry=> B=>2=>alice=> C=>3=>wendy=> D=>4

第1次: 第一個列表中取A，第二個列表中取出1，第三個列表中取出jerry
第2次: 第一個列表中取B, 第二個列表中取出2，第三個列表中取出alice
......
依次類推！
【例09】往指定的字串中加字元
可以用List::MoreUtils中的insert_after子程式

複製代碼 代碼如下:

use v5.10; 
use List::MoreUtils qw(:all); 
 
my @list = qw/This is a list/; 
insert_after {$_ eq 'a'} "longer" => @list; 
print @list;  #This is a longer list

【例10】對兩個列表進行操作，第一個列表平方後，和第二個列表求和
可以用List::MoreUtils中的pairwise子程式

複製代碼 代碼如下:

use v5.10; 
use List::MoreUtils qw(:all); 
 
@m = (1..4); 
@n = (100..103); 
@x = pairwise { ($a*$a) + $b } @m, @n;  #101 105 111 119 

【總結】
如果上面的方式用普通的方法實現，需要多次迴圈遍曆，很麻煩，而將複雜的演算法，資料結構用C來實現並封裝在List模組中，則可以實現很多看似複雜的功能，從中也可以看出Perl的強大之處在於CPAN，有眾多的模組支撐！