为何部分Perl全局符号需显式包名？实例解析%myRef问题

让我来一步步拆解你的问题，帮你搞清楚Perl这背后的规则~

这核心和Perl的use strict规则直接相关：

• 当你开启use strict后，Perl会强制要求所有变量要么通过my（局部变量）或our（包变量，导入当前作用域）声明，要么显式指定所属的包名。
• Perl里的全局变量默认都属于main包，但strict模式下不会自动帮你补全包名——它需要你明确告诉它，你要访问的是哪个包下的全局符号，避免变量名冲突或意外访问错误的变量。
• 如果你临时关闭了strict（比如用no strict;），Perl会自动把未声明的变量归到main包，但这是不推荐的写法，容易引发隐蔽的bug。

我们来仔细拆解你的代码逻辑：

代码示例1的问题根源 #

在代码块{ no strict; no warnings; $myRef{G4143} = 58; ... }里，因为临时关闭了strict检查，Perl会自动把$myRef{key}解析为$main::myRef{key}——也就是在操作main包下的全局哈希%main::myRef的元素。

但到了第18行，代码回到了use strict生效的作用域：

while (my ($key, $value) = each %myRef) { ... }

这里直接写%myRef时，strict会严格校验：你既没有用my声明这个哈希是当前作用域的局部变量，也没有用our把main::myRef导入当前作用域，所以Perl无法确定你指的是哪个变量，就会抛出“requires explicit package name”的错误。

代码示例2能运行的原因 #

当你把%myRef改成%main::myRef后，就明确告诉了Perl：“我要访问的是main包下的那个全局哈希”，这完全符合strict的校验要求，所以代码就能正常执行了。

另一种更优雅的解决方式：用our声明 #

如果你不想每次都写冗长的包名，也可以在use strict的作用域里添加our %myRef;声明，把main::myRef导入当前作用域，之后直接用%myRef就没问题了：

#! /usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw<say state>;
our %myRef; # 声明该变量属于main包，并导入当前作用域
{ no strict; no warnings; $myRef{G4143} = 58; $myRef{Emily} = 8; $myRef{Angela} = 40; }
while (my ($key, $value) = each %myRef) { say "$key=>$value"; }
exit(0);

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