変数名を使用してハッシュを参照するにはどうすればよいですか？

Question

私はあらかじめ定義されたハッシュテーブルのセットを持っており、それらのハッシュの1つを変数名で参照し、キー値にアクセスしたいと考えています。次のコードは、ハッシュに値が設定されていてもnullを返します。私はここで間違って何をしているのですか、これを達成する良い方法がありますか？

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

次のコードは、スカラーにではなくハッシュへの割り当てである：

my $hash_name = 'TEXT'; 

次のコードは、ハッシュに割り当て、次のとおりである：aの値を印刷するために

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

ハッシュからの単一要素、あなたは言う：

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

あなたは、そのハッシュへの参照を取得し、変数にそれを割り当てることができます。

my $hashref = \%hash; 

そして、それから、あなたはそのハッシュリファレンスから単一の要素を印刷することができます。

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'の下には物事の許可は認められません。

* - あなたは