perl의 서브 루틴에서 전역 해시에 액세스

Question

전역 해시를 만들었으며 perl 하위 루틴에서 해당 해시에 액세스하려고하면 액세스 할 수 없습니다.

나는로 선언 : %HASH =();

과 같은 서브 루틴에 액세스하려고 :

$HASH{$key} = $value; 

내가

Answer 1

여기에 잘 작동 뭔가 잘못하고있는 중이 야 경우에 저를 인도하십시오 :

#!/usr/bin/env perl 

use strict; 
use warnings; 
use feature 'say'; 

our %truth =(); # "global" truth: lexical name 
       # for the package variable %main::truth 

sub add_to_truth { 
    my ($thing, $value) = @_; 
    $truth{$thing} = $value; 
} 

add_to_truth(answer => 42); 
say $truth{answer}; 

출력 :

strict URES에서 당신이 그들의 패키지 이름 (이 경우 %main::truth)와 "글로벌"변수를 완벽하게 자격 또는 our로의 어휘 범위 로컬 이름을 생성해야하는 것으로

42 

. 그리고 협박 (및 경고)없이 오늘날 프로그래밍은 이 아닙니다. ™이 아닙니다. 실제로, 그들을 활성화하면 유용하다고 말했을 것입니다.