在 Perl 中，为什么我需要 Exporter？

Question

我的perl\lib 文件夹中有一个名为 hsfSubs.pm 的模块。我在模块中什么都没有，只有子例程和最后的1;。

例如，一个子例程被命名为pause。我没有实施任何导入或导出例程。

在我的主程序中，我只是说use hsfSubs;，然后我可以毫无问题地调用pause。如果我说use hsfSubs qw(pause);，也是如此。

为什么我需要使用 Exporter、@EXPORT 和 @EXPORT_OK 等或任何其他复杂功能？

Stack Overflow 上关于 Exporter 的问题的多个答案告诉了如何使用它，但我不明白为什么要使用它。

Answer 1

简短的版本是你想要一个模块，但你最终得到了this 所谓的库。这些不好，因为它们污染了调用者的命名空间（这会导致很多问题）。但更关键的是，使用require 或use（与do 相反）加载它们是错误的。

如果它被正确地编写为模块，您的示例将无法运行。 Exporter 是解决这个问题的方法。

---

让我们深入了解细节。

就像我说的，你的模块有问题。正如您所注意到的，尽管存在错误，它有时也能正常工作。

$ cat Buggy.pm
sub test { "ok!" }
1;

$ perl -e'use Buggy; CORE::say(test());'
ok!

但这只是因为你的例子太简单了。让我们添加一个正确编写的^[1] 模块。

$ cat Buggy.pm
sub test { "ok!" }
1;

$ cat Other.pm
package Other;
use Buggy;
1;

$ perl -e'use Other; use Buggy; CORE::say(test());'
Undefined subroutine &main::test called at -e line 1.

您的模块中的错误是它没有package 指令。使用use 和require 加载的模块必须始终使用package 指令。但是一旦你添加了它，你的模块就会停止工作。

$ cat NotBuggy.pm
package NotBuggy;
sub test { "ok!" }
1;

$ perl -e'use NotBuggy; CORE::say(test());'
Undefined subroutine &main::test called at -e line 1.

Exporter 就是用来解决这个问题的。

$ cat Final.pm
package Final;
use Exporter qw( import );
our @EXPORT = qw( test );
sub test { "ok!" }
1;

$ perl -e'use Final; CORE::say(test());'
ok!

---

1. 嗯，不是真的。如果编写得当，它将包括使用use strict; use warnings 'all';。总是包括那个！此处省略以保持视觉上的简单性。