Perl添加use strict后访问跨模块全局变量报错如何解决？

报错原因 #

use strict 默认开启了变量检查规则，要求所有变量要么是用my/our声明的词法变量，要么明确指定所属包名，要么提前预声明。你直接调用$global_var1时，编译器无法判断该变量所属的命名空间，因此抛出错误。

可选解决方案 #

方案1：直接携带包名访问（无需修改module2，改法最快） #

把module1中所有调用$global_var1的位置，替换为$module2::global_var1即可，对应的公共子函数也可以用module2::global_var_sub()的方式调用。

方案2：修改module2配置导出公共变量/函数（更规范的通用写法） #

调整module2的代码，将需要对外暴露的内容通过Exporter导出：

1. 在module2头部添加Exporter引用，同时将全局变量改为our声明（满足strict规范，支持导出）：

use Exporter qw(import);
our $global_var1 = 'global_var_sub';
our @EXPORT_OK = qw($global_var1 global_var_sub); # 按需导出列表
sub global_var_sub
{
    return something;
}

2. 在module1引入module2时，显式声明要导入的内容：

use module2 qw($global_var1 global_var_sub);

如果希望导入module2后默认就能用所有导出内容，可以将@EXPORT_OK替换为@EXPORT，但更推荐用@EXPORT_OK按需导入，避免污染当前模块的命名空间。

方案3：在module1预声明变量（不推荐，可读性差） #

在module1头部添加our $global_var1;，编译器会自动匹配对应包的全局变量，即可绕过strict检查，但该写法无法直观体现变量来源，不建议在正式项目中使用。

最佳实践 #

非必要场景尽量避免跨模块使用全局变量，优先通过函数传参、返回值的方式传递数据，降低模块间的耦合度。

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