perl - Perl中foreach循环自动获取循环索引

Question

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

@x = qw(a b c);

然后我使用 foreach 对其进行迭代，然后 $_ 将引用数组中当前的元素:

foreach (@x) {
    print;
}

将打印:

abc

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

foreach (@x) {
    print $index;
}

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

012

Answer 1

喜欢codehead said ，您必须迭代数组索引而不是其元素。与 C 风格的 for 循环相比，我更喜欢这种变体:

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