perl 中的 export 与 export_ok

Question

我无法理解 EXPORT_OK 与 EXPORT 的区别/用例。
大多数资源都提到了以下内容：

@Export 允许将模块的函数和变量导出到 使用标准导入方法的用户命名空间。这样，我们不 需要为模块创建对象以访问其成员。
@EXPORT_OK 会根据选择列表的需要导出符号 模块的符号（子程序和变量）。

但我真的看不出这里的区别/意义。
有人可以提供一个小的基本示例来说明这两个符号的区别/用法吗？

Answer 1

假设我有一个使用 @EXPORT 的包 MyPackage。

#this is MyPackage.pm
package MyPackage;
@EXPORT = qw(do_awesome_thing);

sub do_awesome_thing { ... }

sub be_awesome { ... }

现在，当我在代码中使用 MyPackage 时，

#this is myscript.pl
use MyPackage;

do_awesome_thing(); #works

be_awesome(); #doesn't work
MyPackage::be_awesome(); #works

do_awesome_thing 会自动从MyPackage 导出到我的代码，而无需我说“把这个给我”。 be_awesome 不会被导出（它也不会与@EXPORT_OK 一起导出，我只是展示这部分以让您清楚“导出”给我们带来了什么）。

另一方面，如果我有一个使用@EXPORT_OK 的包MyOtherPackage，

#this is MyOtherPackage.pm
package MyOtherPackage;
@EXPORT_OK = qw(do_awesome_thing);

sub do_awesome_thing { ... }

sub be_awesome { ... }

然后尝试

#this is mynewscript.pl
use MyOtherPackage;

do_awesome_thing(); #doesn't work
MyOtherPackage::do_awesome_thing(); #works, as always

直接调用do_awesome_thing 的行不起作用。这是因为在@EXPORT_OK 中添加一些内容表示“仅在我的用户要求时才将其提供给我的用户”。由于我们刚刚说use MyOtherPackage 没有明确要求在此处导入do_awesome_thing，因此它不会被导入，并且只能通过指定包名来访问。

您要求导入do_awesome_thing 的方式是在上面mynewscript.pl 的第二行中说use MyOtherPackage qw(do_awesome_thing)。这表示导入该模块并使do_awesome_thing 直接可用。之后，上面mynewscript.pl 中的第四行将开始工作。

请注意，用户也可以在第一个包中指定use MyPackage qw(do_awesome_thing)，在这种情况下，不会导出@EXPORT 列表中的任何其他内容，只会导出do_awesome_thing。因此，除了use PackageName; 的默认情况外，@EXPORT 和@EXPORT_OK 的行为相似。在默认情况下，@EXPORT 中的任何内容都会自动放入用户的脚本中，而@EXPORT_OK 则更有礼貌，不会导出任何内容。

Answer 2

来自fine Exporter manual：

• use YourModule;
  这会将 YourModule 的 @EXPORT 中的所有符号导入到 use 语句的命名空间中。
• use YourModule ();
  这会导致 perl 加载您的模块，但不导入任何符号。
• use YourModule qw(...);
  这仅将调用者列出的符号导入其命名空间。所有列出的符号都必须在您的@EXPORT 或@EXPORT_OK 中，否则会发生错误。像这样访问 Exporter 的高级导出功能，但列表条目在语法上与符号名称不同。

所以，如果你使用 @EXPORT 并且有人使用通常的 use YourModule;，那么你只是用 @EXPORT 中的所有内容污染了他们的命名空间。但是，如果您使用 @EXPORT_OK，他们必须明确要求导入一些东西，以便使用您的模块的人可以控制他们的命名空间发生的事情。

区别实际上在于谁控制进入user 命名空间的内容：如果您使用@EXPORT，那么模块是used，如果您使用@EXPORT_OK，那么执行导入的代码控制自己的命名空间。

当然，你总是可以说 use Whatever(); 来防止不礼貌的模块污染你的命名空间，但这很丑陋，你不应该纠结于想要在你的命名空间上乱涂乱画的粗鲁代码。