автоматически получить индекс цикла в цикле foreach в Perl
Если у меня есть следующий массив в Perl:
@x = qw(a b c);
и я перебираю это сforeach
, тогда$_
будет ссылаться на текущийэлемент в массиве:
foreach (@x) {
print;
}
напечатает:
abc
Есть ли подобный способ получитьиндекс текущего элемента, не обновляя счетчик вручную? Нечто такое как:
foreach (@x) {
print $index;
}
где$index
обновляется как$_
дать выход:
012