변수 이름을 사용하여 해시를 참조하려면 어떻게해야합니까?

Question

미리 정의 된 해시 테이블 집합이 있으며 변수 이름을 사용하여 해시 중 하나를 참조하고 키 값에 액세스하려고합니다. 다음 코드는 해시가 채워지더라도 null을 반환합니다. 여기서 내가 잘못하고있는 것이 무엇인가, 아니면 이것을 달성하기위한 더 좋은 방법이 있습니까?

my %hash = (alpha => 'beta', gamma => 'delta'); 

가의 값을 인쇄하려면 :

my $hash_name = 'TEXT'; 

다음 코드는 해시에 할당입니다 :

my %TEXT1 = (1 => 'Hello World',); 
my %TEXT2 = (1 => 'Hello Mars',); 
my %TEXT3 = (1 => 'Hello Venus',); 

my $hash_name = 'TEXT1'; 

my $hash_ref = \%$hash_name; 
print ${$hash_ref}{1}; #prints nothing 

Answer 1

당신의 해시를 포함하는 해시를 사용해야하는 use strict 'refs'에서 실행되지 않는.

my %texts = (
    TEXT1 => { 1 => 'Hello world', }, 
    TEXT2 => { 1 => 'Hello Mars', }, 
    TEXT3 => { 1 => 'Hello Venus', }, 
) 

my $hash_name = 'TEXT1'; 

print $texts{$hash_name}{1}, "\n"; 

Answer 2

다음 코드는 없습니다 해시로, 스칼라에 할당입니다 해시의 단일 요소라고하면 다음과 같이 말합니다.

print $hash{alpha}, "\n"; 

당신은 그 해시에 대한 참조를 가지고 변수에 그를 할당 할 수

my $hashref = \%hash; 

그리고 그에서 해당 hashref에서 하나의 요소를 인쇄 할 수 있습니다

print $hashref->{alpha}, "\n"; 

Answer 3

그냥 작품이 코드 잘 ^*

%TEXT = (1 => abc, 42 => def); 
$name = 'TEXT'; 
print ref($name);   # "" 
no strict 'refs'; 
print ${$name}{1};  # "abc" 
print $name->{42}   # "def" 
$ref = \%$name; 
print ref($ref);   # "HASH" 
print $ref->{1};   # "abc" 
print ${$ref}{42};  # "def" 

당신이 잘못하고있는 주요 것은 making your code an unmaintainable mess이며, 그 이유는 이런 종류입니다 의 내용은 use strict 'refs'에서 허용되지 않습니다.

* - 당신이