Perl   发布时间:2022-04-07  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了如何在Perl foreach循环中一次读取两个项目?大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我在找什么是像:
@list = qw(1 2 3 4 5 6);
foreach (@list) {
  #perl magic goes here 
  print "i: $i,j:$j\n";
}

返回:

i:1,j:2
i:3,j:4
i:5,j:6

在下面一个非常好的建议,我需要指定这个脚本将运行在别人的构建服务器,我不允许使用任何模块从CPAN。仅限标准Perl。

解决方法

我相信正确的方法做到这一点是使用Natatime,从 List::MoreUtils

从文档:

例:

@H_172_2@my @x = ('a' .. 'g'); my $it = natatime 3,@x; while (my @vals = $it->()) { print "@vals\n"; }

打印

a b c
d e f
g

List::MoreUtils::natatime的实施:

sub natatime ($@)
{
    my $n = shift;
    my @list = @_;

    return sub
    {
        return splice @list,$n;
    }
}

大佬总结

以上是大佬教程为你收集整理的如何在Perl foreach循环中一次读取两个项目?全部内容,希望文章能够帮你解决如何在Perl foreach循环中一次读取两个项目?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。