perl - 如何在 Perl foreach 循环中一次读取两个项目？

Question

我正在寻找的是这样的:

@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。

Answer 1

冒着死灵术标签的风险，我决定从 Tim Toady 的背包中再添加一个:

for (0 .. $#list) {
    next if $_ % 2;
    my ($i, $j) = @list[$_, $_ + 1];
    say "i:$i, j:$j";
}

非破坏性、无重复列表、无状态变量且相当简洁。