ハッシュからアイテムを取得できませんgetグローバルシンボルに明示的なパッケージ名が必要です

Question

私はPerlでハッシュを扱おうとしています。私は、次の例ている

：

my %ERROR_CODE_101 = ("id" => 101,"desc" => "blablabla"); 

sub checkError 
{ 
    # some switch-case 
    #.... 
    return %ERROR_CODE_101;  
} 

sub runCommand 
{   
    my $code = checkError(); 
    if($code{id} > 0) # error happens here line 216 
    { 
     #... 
    } 
} 

エラー：

Global symbol "%code" requires explicit package name at build_ios.pl line 216.

Answer 1

my $code = checkError();がスカラー$codeに戻り値を割り当てます。

$code{id}は%codeハッシュからスカラーid値を読み取ろうとします...しかし、あなたは、スカラーではなく、ハッシュを持っています。

あなたが最初の場所でのハッシュに戻り値を代入する必要があります。

my %code = checkError();