Comment accéder à un hachage dans l'espace de noms principal à l'intérieur d'un module

Question

J'ai mon principal script Perl qui contient

my $System = { 
    Path => 
    { 
     root => 'hello' 
    } 
} 

print $System->{'Path'}->{'root'}; # prints 'hello' 

Comment puis-je accéder à la variable $System->{'Path'}->{'root'} d'un module externe?

Je sais que je peux utiliser l'espace de noms main:: pour récupérer des variables globales, telles que $main::x, mais ce qui suit ne fonctionne pas: $main::System->{'Path'}->{'root'}.

J'ai essayé aussi différentes syntaxes mais je ne suis pas capable de l'obtenir.

Qu'est-ce que je fais mal?

Answer 1

Les variables déclarées avec my ont uniquement une portée lexicale et ne sont pas visibles dans un package. Déclarez-le avec our à la place.

Answer 2

"Faire face à la détermination de la portée":

http://perl.plover.com/FAQs/Namespaces.html