a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

分享7個(gè)perl數(shù)組高級(jí)操作技巧

2020-02-23 19:45:48
字體:
供稿:網(wǎng)友

Perl可以直接將列表用作數(shù)組,并使用表達(dá)式提取一個(gè)或多個(gè)元素,這種操作稱為列表切片,下面就跟著武林技術(shù)頻道小編的步伐來分享7個(gè)perl數(shù)組高級(jí)操作技巧。

1、去除一個(gè)數(shù)組中的重復(fù)元素:

使用grep函數(shù)代碼片段:
代碼:

?

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %count;
my @uniq_times = grep { ++$count{ $_ } < 2; } @array;

?

使用轉(zhuǎn)換hash代碼片段:
代碼:

?

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
@saw{ @array } = ( );
my @uniq_array = sort keys %saw;

?

2、合并兩個(gè)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、列表歸并

數(shù)字求和,也可以用List::Util中的reduce:

?

use List::Util qw(reduce);
my $sum = reduce { $a + $b } 1 .. 1000;


與sort類似,reduce也是用code block作為參數(shù),不過運(yùn)行機(jī)制稍微不同。每次迭代,先從參數(shù)列表取出前面兩個(gè)元素,分別設(shè)置為別名$a和$b,這樣參數(shù)列表的長(zhǎng)度就會(huì)縮短為兩個(gè)元素。然后reduce把語句塊返回的計(jì)算結(jié)果再壓回到參數(shù)列表的頭部。如此往復(fù),直到最后列表里只剩下一個(gè)元素,也就是迭代的計(jì)算結(jié)果$sum。

?

好了,可以這樣了:

?

my $product = reduce { $a * $b } 1 .. 1000;

?

5、判斷是否有元素匹配

純粹用Perl實(shí)現(xiàn),找到列表中第一個(gè)符合某條件的元素,比找出所有符合條件的要麻煩一些。下面的例子,判斷是否有大于1000的元素:

?

my $found_a_match = grep { $_ > 1000 } @list;


注意:如果@list有一億個(gè)元素,而要找的就是1001?grep仍然還會(huì)循環(huán)一億次,當(dāng)然你可以向下面自己控制下:

?

?

?


my $found_a_match = 0;
foreach my $elem (@list) {
$found_a_match = $elem if $elem > 1000;
last if $found_a_match;
}


還是那句話,不簡(jiǎn)單~~~List::Util有現(xiàn)成的東西:

?

?

?


use List::Util qw(first);
my $found_a_match = fist { $_ > 1000 } @list;


在List::MoreUtils模塊中,也提供很多的實(shí)用函數(shù):

?

?

?


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

一般我們同時(shí)遍歷多個(gè)業(yè)務(wù)相關(guān)的列表時(shí),往往用數(shù)組下標(biāo)遍歷:

?

my @a = ( ... );
my @b = ( ... );
my @c;

?

foreach my $i ( 0 .. $#list ) {
my ( $a, $b ) = ( $a[$i], $b[$i] );
push @c, $a + $b;
}


看下面這個(gè),你的感覺是?

?

?

?


use List::MoreUtils qw(pairwise);
my @c = pairwise { $a + $b } @a, @b;


pairwise只適合兩個(gè)列表的同步計(jì)算,三個(gè)后用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;
}


雖然還是有點(diǎn)煩,不過也還好了。

7、數(shù)組合并

合并多個(gè)數(shù)組的操作當(dāng)然你可以自己寫,但終究不如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 ...

以上就是關(guān)于分享7個(gè)perl數(shù)組高級(jí)操作技巧的相關(guān)介紹,雖然現(xiàn)在的技術(shù)人員需求沒以前那么火爆,但是它競(jìng)爭(zhēng)沒那么大,所以還是很有前途的。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 久久久av| 日本一区二区三区视频在线 | 欧美一级片免费观看 | 国产成人涩涩涩视频在线观看 | 瑟瑟在线观看 | 欧美aaa大片| 国产伦精品一区二区三区高清 | 手机在线观看毛片 | 日本一区二区视频在线 | 麻豆精品国产传媒 | 亚洲 欧美 激情 另类 校园 | 欧美日韩亚洲一区二区 | 一区二区三区日韩 | 欧美专区在线观看 | 久久人 | 久久伊人久久 | 成人精品视频在线观看 | xxxx性欧美 | 射射影院 | 国产成人在线看 | 久久99精品久久久久久 | 一区在线视频 | 亚洲va中文字幕 | 五月天婷婷激情视频 | 国产超碰在线 | 色婷婷综合在线视频 | 成人在线高清视频 | 毛片a片 | 成人xxx| 久久一区二区三区四区 | 欧美啊v| 欧美日在线| 91福利影院在线观看 | 中文字幕在线永久 | 在线观看国产高清视频 | 国产综合一区二区 | 色一情一乱一伦一区二区三区 | 91欧美激情一区二区三区成人 | 欧美在线www| 麻豆精品国产91久久久久久 | 国产小视频在线观看 |