Perché non viene visualizzato un avviso quando redeclare la variabile di controllo Pereach Foreach?

Question

Perché non viene lanciato alcun avviso per la ridichiarazione di $i nel seguente codice?

#!/usr/bin/perl 

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

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

Answer 1

Si otterrebbe un avviso se si ridichiarare una variabile my, our o state nel campo di applicazione o istruzione corrente. Il primo $i non è in realtà una variabile lessicale. È possibile dimostrare questo 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 

Non c'è PADMY bandiera in bandiere, che indicherebbe che $i è una variabile lessicale, dichiarata con my.

Answer 2

In realtà, si ricevono solo avvisi per le ridefinizioni nello stesso ambito. Scrivi:

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

è perfettamente valido.

io non sono sicuro se la struttura interna di Perl gestire in questo modo, ma si può pensare della vostra for ciclo ad essere analizzato come

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