Perl List::Util模塊使用實例

 　　這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表並取出第一個符合條件的、求1到1000之間的和、求一組數字的最大值與最小值等實用功能代碼,需要的朋友可以參考下

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

　　【例01】掃描符合條件的某個列表，並取出第一個符合條件的

　　常規做法:

　　代碼如下:

　　use 5.010;

　　my @names = qw(Wendy Jerry Betty Wendy Alice);

　　foreach (@names) {

　　if (/bWendyb/i) {

　　$match = $_;

　　last;

　　}

　　}

　　say $match;

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

　　 代碼如下:

　　use List::Util qw(first);

　　my $match = first {/bWendyb/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 100n"; }

　　elsif (any {$_ > 50}@numbers) {print "Some elements over 50n";}

　　elsif (all {$_ <10} @numbers) {print "All elements < 10n";}

　　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 @namen";

　　}

　　#輸出結果

　　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，有眾多的模塊支撐!