如何从未命名的 Perl 模块导入所有“我们的”变量而不列出它们？

Question

我需要从未命名 Perl 模块 (Module.pm) 导入所有我们的变量，并在 Perl 脚本 (Script.pl) 中使用它们。

以下代码在没有“use strict”的情况下运行良好，但在使用时失败了。如何更改此代码以与 "use strict" 一起使用，而无需手动列出所有导入的变量（如 其他问题）？

非常感谢您的帮助！

Script.pl：Module.pm

use strict;
require Module;
print $Var1;

：

our $Var1 = "1\n";
...
our $VarN = "N\n";
return 1;

运行脚本：

$> perl Script.pl

错误：

Global symbol "$Var1" requires explicit package name at Script.pl line 3.
Execution of Script.pl aborted due to compilation errors.

注意 (1)：该模块未命名，因此不能使用 Module:: 前缀。

注(2)：Module.pm还包含一组由全局变量配置的函数。

注意(3)：变量是不同的，不应该存储在一个数组中。

注(4)：设计不好，但问题不在于设计。它强制列出的代码以最小的修改进行工作，复杂度为 O(1)，即不依赖于 N 的几行代码。

候选解决方案（已接受）：在所有导入的变量之前添加 $::。它符合strict，并且还允许在代码中将my 变量与imported 区分开来。

Answer 1

将脚本更改为：

use strict;
require Module;
print $Module::Var1;

问题是 $Var1 不在主命名空间中，而是在 Module 的命名空间中。

编辑：正如下面的评论所指出的，您还没有命名您的模块（即顶部没有说package Module;）。因此，没有 Module 命名空间。将脚本更改为：

use strict;
require Module;
print $main::Var1;

...允许脚本正确打印出 1\n。

Answer 2

如果您必须在每个模块中导入所有我们的变量，那么您的设计就存在严重错误。我建议您重新设计程序以分离元素，以便将它们之间的串扰降至最低。这称为解耦。

Answer 3

您想要从模块中导出所有变量，并且您想要以一种您甚至不知道您正在导出什么的方式来执行此操作？忘记使用严格和使用警告吧，因为如果你把它们放在你的程序中，它们就会尖叫着跑出去，然后蜷缩在角落里歇斯底里地哭泣。

我从来没有，我的意思是几乎从来没有，从不导出变量。我总是创建一种方法来提取所需的值。它使我能够对向外界公开的内容进行至关重要的控制，并保持用户命名空间的纯净。

让我们看看您的想法可能存在的问题。

1. 您不知道模块中正在导出什么。使用该模块的程序如何知道要使用什么？在某个地方，您必须记录变量 $foo 和 @bar 可供使用。如果你必须这样做，为什么不简单地谨慎行事呢？
2. 您遇到了有人更改模块的问题，突然一个新变量被导出到使用该模块的程序中。想象一下该变量是否已被使用。程序突然有一个bug，你永远也搞不出来。
3. 您正在模块中导出一个变量，开发人员决定修改该变量，甚至将其从程序中删除。同样，因为您不知道正在导入或导出什么，所以无法知道为什么程序中突然出现错误。

正如我所提到的，您必须知道程序可以使用的模块中正在使用的内容，因此无论如何您都必须记录下来。如果您坚持导入变量，至少使用 EXPORT_OK 数组和 Exporter 模块。这将有助于限制损害。这样，您的程序可以声明它所依赖的变量，并且您的模块可以声明它知道程序可能使用的变量。如果我正在修改模块，我会特别小心我看到的正在导出的任何变量。而且，如果您必须在程序中指定要导入的变量，您就知道要对这些特定变量保持谨慎。

否则，为什么还要麻烦模块呢？为什么不简单地回到 Perl 3.0 并使用 require 而不是 use 并忘记使用 package 语句。

Answer 4

听起来您的文件中有数据并且正在尝试将该数据加载到您的程序中。

现在，模块中的 our 声明仅声明该文件范围的变量。文件运行完成后，要访问变量，您需要使用它们的完全限定名称。如果您的模块有 package xyz; 行，则完全限定名称为 $xzy::Var1。如果没有 package 声明，则使用默认包 main，将变量命名为 $main::Var1

但是，任何时候如果您正在使用数字名称更改来创建许多变量，那么您可能应该使用数组。

将您的模块更改为类似以下内容：

@My::Module::Data = ("1\n", "2\n" ... )

然后按索引访问项目：

$My::Module::Data[1]