在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}; 

輸出：

42 

注意下strict數目字，你有自己的包名（%main::truth在這種情況下），以完全符合你的「全局」變量或爲他們創造一個詞法範圍的本地名稱與our 。今天編程沒有狹窄（和警告）是不是一件好事™。事實上，激活它們會告訴你一些有用的東西。