1、去除一個數組中的重複元素：
使用grep函數程式碼片段：
代碼:
複製代碼 代碼如下:
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %count;
my @uniq_times = grep { ++$count{ $_ } < 2; } @array;
使用轉換hash程式碼片段：
代碼:
複製代碼 代碼如下:
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
@saw{ @array } = ( );
my @uniq_array = sort keys %saw;
2、合并兩個array:
複製代碼 代碼如下:
push @array1, @array2;
3、快速尋找最大值，不知道的程式猿們，這樣搞：
複製代碼 代碼如下:
my @nums = 0 .. 1000;
my $max = $nums[0];
foreach (@nums) {
$max = $_ if $_ > $max;
}
知道的這樣搞：
複製代碼 代碼如下:
use List::Util qw(max);
my $max_num = max( 0 .. 1000 );
知道的他們還這樣搞：
複製代碼 代碼如下:
use List::Util qw(maxstr);
my $max_str = maxstr ( qw( Fido Spot Rover ) );
字串比較玩弄於掌中。還有sum：
複製代碼 代碼如下:
use List::Util qw(sum);
my $sum = sum ( 1 .. 1000 );
4、列表歸併
數字求和，也可以用List::Util中的reduce：
複製代碼 代碼如下:
use List::Util qw(reduce);
my $sum = reduce { $a + $b } 1 .. 1000;
與sort類似，reduce也是用code block作為參數，不過運行機制稍微不同。每次迭代，先從參數列表取出前面兩個元素，分別設定為別名$a和$b，這樣參數列表的長度就會縮短為兩個元素。然後reduce把語句塊返回的計算結果再壓回到參數列表的頭部。如此往複，直到最後列表裡只剩下一個元素，也就是迭代的計算結果$sum。
好了，可以這樣了：
複製代碼 代碼如下:
my $product = reduce { $a * $b } 1 .. 1000;
5、判斷是否有元素匹配
純粹用Perl實現，找到列表中第一個符合某條件的元素，比找出所有合格要麻煩一些。下面的例子，判斷是否有大於1000的元素：
複製代碼 代碼如下:
my $found_a_match = grep { $_ > 1000 } @list;
注意：如果@list有一億個元素，而要找的就是1001？grep仍然還會迴圈一億次，當然你可以向下面自己控制下：
複製代碼 代碼如下:
my $found_a_match = 0;
foreach my $elem (@list) {
$found_a_match = $elem if $elem > 1000;
last if $found_a_match;
}
還是那句話，不簡單~~~List::Util有現成的東西：
複製代碼 代碼如下:
use List::Util qw(first);
my $found_a_match = fist { $_ > 1000 } @list;
在List::MoreUtils模組中，也提供很多的實用函數：
複製代碼 代碼如下:
my $found_a_match = any { $_ > 1000 } @list;
my $all_greater = all { $_ > 1000 } @list;
my $none_greater = none { $_ > 1000 } @list;
my $all_greater = notall { $_ % 2 } @list;
6、一次遍曆多個列表
一般我們同時遍曆多個業務相關的列表時，往往用數組下標遍曆：
複製代碼 代碼如下:
my @a = ( ... );
my @b = ( ... );
my @c;
foreach my $i ( 0 .. $#list ) {
my ( $a, $b ) = ( $a[$i], $b[$i] );
push @c, $a + $b;
}
看下面這個，你的感覺是？
複製代碼 代碼如下:
use List::MoreUtils qw(pairwise);
my @c = pairwise { $a + $b } @a, @b;
pairwise只適合兩個列表的同步計算，三個後用each_array：
複製代碼 代碼如下:
use List::MoreUtils qw(each_array);
my $ea = each_array( @a, @b, @c );
my @d;
while ( my ( $a, $b, $c ) = $ea->() ) {
push @d, $a+$b+$c;
}
雖然還是有點煩，不過也還好了。
7、數組合并
合并多個數組的操作當然你可以自己寫，但終究不如MoreUtils的mesh方便：
複製代碼 代碼如下:
use List::MoreUtils qw(mesh);
my @odds = qw/ 1 3 5 7 9/;
my @evens= qw/ 2 4 6 8 0/;
my @nums = mesh @odds, @evens; # print： 1 2 3 4 ...
