패키지가 정의 된 시점에 패키지의 심볼을 가져 오는 방법은 무엇입니까?

Question

필자가 작업중인 Perl 프로그램에서 사용자는 몇 가지 변수 (변수 번호)를 정의 할 것으로 예상되는로드 할 Perl 모듈을 지정할 수 있습니다. Perl 프로그램은 기본적으로이 값을 모두 네임 스페이스에 넣는 것을 제외하고 패키지를 일반 해시로 처리하여 이러한 변수를 처리합니다. 이렇게하면 잘 작동, 즉이 프로그램을 인쇄 '2':

use strict; 
use warnings; 

package P { 
    my $k1 = 'v1'; 
    my $k2 = 'v2'; 
}; 

my $n = scalar keys %P::; 
print "Number of entries: $n\n"; 
# print $P::x; 

그러나, 마지막 줄의 주석을 해제하는 프로그램 인쇄하게 '3'. 나는. 패키지의 변수에 대한 언급은 심볼 테이블에 변수를 추가하는 것처럼 보입니다.

기호 표가 정의 된대로 패키지의 기호 표를 가져 오는 방법이 있습니까? 예를 들어 기호 표가 두 항목으로 구성되어 있습니까?

Answer 1

컴파일시에 발견 된 패키지 변수는 컴파일시에 숨김에 추가됩니다. 그래서 해결 방법은 컴파일 단계에서 숨김을 평가입니다

package P { 
    $k1 = 'v1'; 
    $k2 = 'v2'; 
}; 

BEGIN {  
    my $n = scalar keys %P::; 
    print "Number of entries: $n\n"; # 2 
} 
print $P::x; 

또는

package P { 
    $k1 = 'v1'; 
    $k2 = 'v2'; 
}; 

my $n = scalar keys %P::; 
print "Number of entries: $n\n"; # 2 
print eval '$P::x'; 
$n = scalar keys %P::; 
print "Number of entries: $n\n"; # now 3