跟踪迭代的数组中的元素数量？

Question

有没有办法可以在perl中跟踪for循环中迭代的元素数量:比如使用特殊变量:

@arrayElements = (2,3,4,5,6,7,67);
foreach (@arrayElements) {
    # Do something
    # Want to know how may elements been iterated after 
    # some n number of elements processed without using another variable.
}

Answer 1

你可以随便计算:

my $processed = 0;
foreach my $element (@array_elements) {
    ...
    ++$processed;
}

或者迭代索引:

foreach my $index (0..$#array_elements) {
    my $element = $array_elements[$index];
    ...
}