¿Por qué no aparece una advertencia cuando redeclaro la variable de control de Perl foreach?

Question

¿Por qué no se emite una advertencia para la redeclaración de $i en el siguiente código?

#!/usr/bin/perl 

use strict; 
use warnings; 
use Data::Dumper; 

for my $i (1..3) { 
    my $i = 'DUMMY'; 
    print Dumper $i; 
} 

Answer 1

Usted recibirá una advertencia si una variable redeclare my, our o state en el alcance o el estado de cuenta actual. La primera $i no es en realidad una variable léxica. Puede probar esto usando Devel::Peek:

use Devel::Peek; 

for my $i (1) { 
    Dump $i; 
} 

SV = IV(0x81178c8) at 0x8100bf8 
REFCNT = 2 
FLAGS = (IOK,READONLY,pIOK) 
IV = 1 

No hay PADMY bandera de banderas, lo que indicaría que $i es una variable léxica, declarada con my.

Answer 2

En realidad, solo recibe advertencias para las redefiniciones en el mismo ámbito. Escritura:

use warnings; 
my $i; 
{ 
    my $i; 
    # do something to the inner $i 
} 
# do something to the outer $i 

es perfectamente válido.

no estoy seguro de si las partes internas de Perl manejan de esta manera, pero se puede pensar en su bucle for como se analiza como

{ 
    my $i; 
    for $i (...) { ... } 
    # the outer scope-block parens are important! 
};