在 Perl 中的 foreach 循环中自动获取循环索引 [英] Automatically get loop index in foreach loop in Perl

问题描述

如果我在 Perl 中有以下数组:

If I have the following array in Perl:

@x = qw(a b c);

然后我用 foreach 遍历它，然后 $_ 将引用数组中的当前 元素:

and I iterate over it with foreach, then $_ will refer to the current element in the array:

foreach (@x) {
    print;
}

将打印:

abc

是否有类似的方法来获取当前元素的 index，而无需手动更新计数器?诸如:

Is there a similar way to get the index of the current element, without manually updating a counter? Something such as:

foreach (@x) {
    print $index;
}

其中 $index 像 $_ 一样更新以产生输出:

where $index is updated like $_ to yield the output:

012

推荐答案

Like codehead 说，你必须迭代数组索引而不是它的元素.与 C 风格的 for 循环相比，我更喜欢这个变体:

Like codehead said, you'd have to iterate over the array indices instead of its elements. I prefer this variant over the C-style for loop:

for my $i (0 .. $#x) {
    print "$i: $x[$i]
";
}

这篇关于在 Perl 中的 foreach 循环中自动获取循环索引的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！