automaticamente obter índice de loop no loop foreach em perl
Se eu tiver a seguinte matriz em Perl:
@x = qw(a b c);
e eu itero sobre ele comforeach
, então$_
fará referência ao @ atuelement na matriz:
foreach (@x) {
print;
}
imprimirá:
abc
Existe uma maneira semelhante de obter oíndic do elemento atual, sem atualizar manualmente um contador? Algo como:
foreach (@x) {
print $index;
}
Onde$index
é atualizado como$_
para produzir a saída:
012