perl中如何一次遍历多个列表

这篇文章给大家分享的是有关perl中如何一次遍历多个列表的内容。小编觉得挺实用的，因此分享给大家做个参考，一起跟随小编过来看看吧。

perl中一次遍历多个列表

一般我们同时遍历多个相关的列表时，往往用数组下标遍历：

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

感谢各位的阅读！关于“perl中如何一次遍历多个列表”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！