서브 루틴을 정의한 후 어휘 변수를 정의하십시오.

Question

서브 루틴을 선언 한 후 my을 사용하여 어휘 적으로 변수를 선언하려고하면 Perl에서이 서브 루틴에이 변수가 표시되지 않습니다. 모두 서브 루틴이 변수를 볼 수 있습니다, 당신이 그것을 (@arr = (1,2,3);)를 선언하지 않고 변수를 설정하면, 그러나

sub lol { 
    if (@arr) { 
     print "defined\n"; 
    } else { 
     print "not defined\n"; 
    } 
} 
my @arr = (1,2,3); 
sub lol2 { 
    if (@arr) { 
     print "defined\n"; 
    } else { 
     print "not defined\n"; 
    } 
} 
lol; #prints "not defined" 
lol2; #prints "defined" 

또는 our으로 변수를 선언 그러나, 서브 루틴은 변수가 변수가 표시됩니다 후에 선언했다.

버그 또는 기능인가요?

Answer 1

my으로 정의되지 않은 모든 변수는 암시 적으로 our (전역/패키지) 변수입니다. 그래서 그것은 하나의 특징입니다. use strict; pragma는 변수 선언에 our 또는 my을 명시 적으로 사용하도록합니다.

는 perldoc

엄격한 바르

당신은 어느 쪽도 명시 적으로 내 중 하나를 사용하여 (선언되지 않은 변수에 액세스하는 경우이 컴파일 타임에 오류가 발생, 인용, 더 정확하게하려면 우리 , 주 (state), 또는 바르 (vars) 사용). 변수 자살 문제와 미묘한 동적 범위 지정 문제를 피하기 위해 로컬 변수만으로는 충분하지 않습니다.