Perl equivalente a PHP bucle foreach

Question

Busco a un Perl equivalente al siguiente código PHP: -

foreach($array as $key => $value){ 
... 
} 

Sé que puedo hacer un bucle foreach de este modo: -

foreach my $array_value (@array){ 
.. 
} 

Qué me permitirá hacer cosas con los valores de la matriz, pero me gustaría usar las claves también.

Sé que hay un hash Perl que le permite configurar pares clave-valor, pero solo quiero el número de índice que la matriz le da automáticamente.

Answer 1

Probar:

my @array=(4,5,2,1); 
foreach $key (keys @array) { 
    print $key." -> ".$array[$key]."\n"; 
} 

Obras para hashes y matrices. En el caso de Matrices, la tecla $ contiene el índice.

Answer 2

supongo que el Perl más cercano es algo como esto:

foreach my $key (0 .. $#array) { 
    my $value = $array[$key]; 

    # Now $key and $value contains the same as they would in the PHP example 
} 

Desde Perl 5.12.0, puede utilizar la función keys en matrices, así como los hashes. Eso podría ser un poco más legible.

use 5.012; 

foreach my $key (keys @array) { 
    my $value = $array[$key]; 

    # Now $key and $value contains the same as they would in the PHP example 
} 

Answer 3

Si está usando Perl 5.12.0 o superior se puede utilizar en matrices each:

my @array = 100 .. 103; 

while (my ($key, $value) = each @array) { 
    print "$key\t$value\n"; 
} 

de salida:

0  100 
1  101 
2  102 
3  103 

perldoc each