ハッシュから変数へのキーの割り当て

Question

ハッシュへの参照を返すサブルーチンがあります。私はそのハッシュから最初のキーを取得し、サブルーチンが返った後に変数に代入したいと考えています。今、私はこれをやっているし、これは動作しますが、私は賢く/簡単な方法

my $hash = get_value(); # calling my subroutine here which returns a reference to a hash 
foreach my $keys (keys %{$hash}) { 
    my $test_variable = $keys; # Assigning the first key to variable 
    # check if variable is not empty and exit the loop 
    if (!$test_variable) { 
     last; 
    } 
} 

Answer 1

あなたが必要とするすべては次のとおりです。

my($test_variable) = keys %$hash; 

Answer 2

my $test_variable = (keys %{get_value()})[0]; 

が内側からそこに作業するべきだと思います。それは周りのget_value（）ハッシュリファレンスを返すので、％{}それをハッシュにデリファレンスすると、キーは配列としてキーを返し、（）[0]はその配列から0番目の項目を取得します。

しかし、リストにハッシュを回すので、/配列はあなたのキー、値の順にアイテムを与え、これはあまりにも動作します：

my $test_variable = (%{get_value()})[0]; 

Answer 3

も注意してください、他の答えはになりますが、は最初のキーを与えます。Perlはハッシュ要素の順序を保証しません。特定の注文が必要な場合は、別のキーのリストを保持し、これを使用して「最初の」要素にアクセスします。

例えば：

my @fields = qw(a b c); 

my $test_variable = get_value()->{$fields[0]}; 

Answer 4

my $hash = get_value(); 
keys %$hash; 
my $test_variable = each %$hash; 
keys %$hash; 

ボイドコンテキストキーがハッシュの内部イテレータをリセットします。スカラーコンテキストではそれぞれ次のキーを返します。