perl - 如何访问定义为常量的 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 本质上是一个返回哈希引用的子例程。