Pourquoi ne reçois-je pas d'avertissement lorsque je redéclare la variable de contrôle Per foreach?

Question

Pourquoi n'y a-t-il aucun avertissement pour la redéclaration de $i dans le code suivant?

#!/usr/bin/perl 

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

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

Answer 1

Vous obtiendrez un avertissement si vous redéclarer un my, our ou state variable dans la portée actuelle ou de la déclaration. Le premier $i n'est pas réellement une variable lexicale. Vous pouvez le prouver en utilisant Devel::Peek:

use Devel::Peek; 

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

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

Il n'y a pas PADMY drapeau dans FLAGS, ce qui indiquerait que $i est une variable lexicale, déclarée avec my.

Answer 2

En fait, vous n'obtenez des avertissements que pour les redéfinitions dans la même portée. Ecriture:

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

est parfaitement valide.

Je ne sais pas si les entrailles Perl gèrent cette façon, mais vous pouvez penser à votre boucle for comme étant analysé comme

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