perl - 如何使用 foreach 循环遍历数组的奇数索引？

Question

我想访问$Array[$i]并且$Array[$i+1]在循环的每次迭代中foreach，我认为我需要这样做

$index = 0;
foreach $element (@Array)
{
  // access $element
  // access $Array[$index+1] 

  $index++;
}

但是如果我这样做，i+1迭代将再次通过，但是如果我想让循环通过 i ， i+2 ， i+4 ， i+6 ...我该怎么办？

谢谢

Answer 1

for(my $i=0; $i<scalar(@Array)-1; $i+=2) {
     my $ele1 = $Array[$i];
     my $ele2 = $Array[$i+1];