perl中如何一次遍歷多個列表

發(fā)布時間：2022-02-23 10:57:14 來源：億速云閱讀：164 作者：小新欄目：開發(fā)技術(shù)

這篇文章給大家分享的是有關(guān)perl中如何一次遍歷多個列表的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

perl中一次遍歷多個列表

一般我們同時遍歷多個相關(guān)的列表時，往往用數(shù)組下標遍歷：

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

其實還可以這樣：

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

pairwise只適合兩個列表，三個列表這樣做：

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; 
}

感謝各位的閱讀！關(guān)于“perl中如何一次遍歷多個列表”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

向AI問一下細節(jié)

猜你喜歡