如何访问定义为常量的Perl哈希

Question

如果我将Perl哈希定义为常量,例如:

use constant SITES => {foo => 1, bar => 2};

如何检索foo和bar的值？$ SITES {foo}不起作用.

Answer 1

my $site_foo = SITES->{foo};
my $site_bar = SITES->{bar};

SITES 本质上是一个返回哈希引用的子例程.