在 perl 中使用 FindBin 时导入库子例程

Question

编辑 抱歉造成混乱，这是我更新的问题。

我在我的 perl 脚本中使用 FindBin，如下所示：

use FindBin qw($Bin);
use lib "$Bin/../lib";
use multi_lib qw(say_hello_world);

这有效：

multi_lib::say_hello_world();

但这不起作用：

say_hello_world();

编辑 2

这就是 multi_lib.pm 的外观：

package multi_lib;

use strict;
use warnings;
use 5.010;

require Exporter;
my @ISA = qw(Exporter); # removing `my` causes an error!
my @EXPORT_OK = qw(say_hello_world); # removing `my` causes an error!

sub say_hello_world {
 say "hello world!";
}

ps 我不知道 @ISA 代表什么，以及添加 my 是否可以……我遵循了 Exporter 的 preldoc。

编辑3 我认为我通过在 use strict 之前移动 @EXPORT_OK 解决了这个问题。我习惯于将 use strict 放在脚本的开头，但我想这不是这里的方法（？）。不管怎样，这有效：

use Exporter 'import';
@EXPORT_OK = qw(say_hello_world);
use strict;
...

我仍然希望得到一些关于这里到底发生了什么以及导出子例程的推荐方式是什么的解释（就像我所做的那样？）。

Answer 1

你不能那样做。 lib 的 import() 例程修改 @INC 而不是尝试导出任何内容。
但无论如何，lib.pm 中没有适合外部使用的函数。你真正想实现什么目标？

更新问题的更新答案：

不，您不能在 @EXPORT_OK 上使用 my() ；它需要全局可见，以便导出器可以使用它。
请改为说我们的@EXPORT_OK;。 @ISA也是如此；包变量 @ISA 控制继承，词法 @ISA 不执行任何操作。不过，我不喜欢从 Exporter 继承；您只需导入 Exporter 的导入例程即可执行此操作（除了非常旧的 Exporter）：

use Exporter 5.57 'import';

提示您添加 my() 的错误是因为您指定了 use strict; （除其他外，它要求正确声明变量，除非它们是由包名称或特殊全局变量限定的包变量）。 our() 相当于 my()，它将变量声明为包变量而不是词法变量，因此可以从声明它们的范围之外访问它们。最好使用 our() 正确声明它们，而不是将它们移到 use strict; 上方来解决错误。

Answer 2

这不是图书馆的工作方式。您需要设置库位置，然后从中加载包含所需子例程的模块 (.pm)。

Answer 3

我想导入一个特定的
子例程（又名 say_hello_world）来自
lib，但这不起作用：

use lib "$Bin/../lib" qw(say_hello_world);

use lib 只是将您指向文件所在的目录，您还需要指定该文件。如果您的子例程位于文件 Example.pm 中，那么您

use Example qw(say_hello_world);

还需要注意 FindBin 部分需要位于 BEGIN 块内：

BEGIN {
    use FindBin qw($Bin);
    use lib "$Bin/../lib";
};
use Example qw(say_hello_world);