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

perl中一次遍历多个列表

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

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

其实还可以这样：

useList::MoreUtilsqw(pairwise);my@c=pairwise{$a+$b}@a,@b;

pairwise只适合两个列表，三个列表这样做：

useList::MoreUtilsqw(each_array);my$ea=each_array(@a,@b,@c);my@d;while(my($a,$b,$c)=$ea->()){push@d,$a+$b+$c;}

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