国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > Perl > 正文

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

2020-02-23 19:45:48
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

Perl可以直接將列表用作數(shù)組,并使用表達(dá)式提取一個(gè)或多個(gè)元素,這種操作稱(chēng)為列表切片,下面就跟著武林技術(shù)頻道小編的步伐來(lái)分享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類(lèi)似,reduce也是用code block作為參數(shù),不過(guò)運(yùn)行機(jī)制稍微不同。每次迭代,先從參數(shù)列表取出前面兩個(gè)元素,分別設(shè)置為別名$a和$b,這樣參數(shù)列表的長(zhǎng)度就會(huì)縮短為兩個(gè)元素。然后reduce把語(yǔ)句塊返回的計(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è),你的感覺(jué)是?

?

?

?


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)煩,不過(guò)也還好了。

7、數(shù)組合并

合并多個(gè)數(shù)組的操作當(dāng)然你可以自己寫(xiě),但終究不如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ù)人員需求沒(méi)以前那么火爆,但是它競(jìng)爭(zhēng)沒(méi)那么大,所以還是很有前途的。

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

圖片精選

主站蜘蛛池模板: 安西县| 安宁市| 垦利县| 渑池县| 台中县| 天津市| 囊谦县| 黎城县| 九龙县| 通渭县| 灌南县| 大新县| 固安县| 丹阳市| 桃源县| 太和县| 崇明县| 浪卡子县| 新乡市| 孟津县| 德惠市| 南乐县| 曲水县| 健康| 辉南县| 丰城市| 黄平县| 宜宾市| 仁怀市| 龙州县| 宜章县| 江北区| 定陶县| 乌兰浩特市| 久治县| 汕尾市| 绥江县| 安陆市| 青铜峡市| 怀仁县| 陕西省|