这篇文章给大家分享的是有关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中如何一次遍历多个列表”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
