腳本之家服務器常用軟件

快捷導航

7個perl數組高級操作技巧分享

更新時間：2014年11月24日 10:31:54 投稿：junjie

這篇文章主要介紹了7個perl數組高級操作技巧,本文講解了數組去重、數組合并、查找最大值、列表歸并等內容,需要的朋友可以參考下

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仍然還會循環(huán)一億次，當然你可以向下面自己控制下：

復制代碼代碼如下:

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、一次遍歷多個列表

一般我們同時遍歷多個業(yè)務相關的列表時，往往用數組下標遍歷：

復制代碼代碼如下:

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 ...

您可能感興趣的文章:

最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

7個perl數組高級操作技巧分享

相關文章

最新評論

大家感興趣的內容

最近更新的內容

常用在線小工具