Tại sao tôi không nhận được cảnh báo khi tôi redeclare biến kiểm soát Forl foreach?

Question

Tại sao không có cảnh báo nào bị ném cho việc khai báo lại số $i trong mã sau?

#!/usr/bin/perl 

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

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

Answer 1

Bạn sẽ nhận được một cảnh báo nếu bạn redeclare một my, our hoặc state biến trong phạm vi hiện tại hoặc tuyên bố. Đầu tiên $i không thực sự là một biến từ vựng. Bạn có thể chứng minh điều này bằng Devel::Peek:

use Devel::Peek; 

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

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

Không có PADMY cờ trong CỜ, mà sẽ chỉ ra rằng $i là một biến từ vựng, tuyên bố với my.

Answer 2

Thực tế, bạn chỉ nhận được cảnh báo cho các định nghĩa lại trong cùng một phạm vi. Viết:

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

hoàn toàn hợp lệ.

Tôi không chắc chắn nếu internals Perl xử lý nó theo cách này, nhưng bạn có thể nghĩ for vòng lặp của bạn như đang được phân tích như

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