Perl中如何直接通过名称访问外部注入的包全局变量？

• 代码启用了use strict，其中的vars约束规则明确要求：所有未写完全限定名的变量，必须是my/state声明的词法变量、或是提前通过our/use vars声明过的包变量，否则会直接触发编译报错。
• 你在main包中为$Haus::var赋值，确实已经成功创建了Haus包的全局包变量，但由于Haus包内部没有提前建立该变量的短名访问映射，直接写$var不符合strict约束要求，因此无法运行。

下面是几种符合要求的实现方式：

• 局部关闭strict 'vars'约束：仅在test方法的代码块内关闭变量声明检查，不会影响其他代码的严格校验规则，修改示例：

sub test{
        no strict 'vars'; # 作用范围仅限当前sub块
        print __PACKAGE__."\n";
        print "qualified var [$Haus::var]\n";
        print "simple var [$var]\n"; # 可正常运行
}

• 通过包符号表读取变量：直接访问包的符号表哈希获取变量值，不需要关闭strict，也不需要额外声明变量：

# 写法1：直接指定包名
print "simple var [${$Haus::{var}}]\n";
# 写法2：动态适配当前包，后续修改包名不需要调整代码
print "simple var [${(__PACKAGE__.'::')->{var}}]\n";

• 用use vars编译指示预声明：如果允许提前在包级别声明，可在Haus包开头添加use vars qw($var);，即可在整个包范围内直接用短名访问$var，该写法不属于our声明范畴。

内容的提问来源于stack exchange，提问作者user2050516