Perl：动态加载模块并访问导出的内容

Question

在学习了 Perl require docs 以及 Stackoverflow 我仍然不知道，一定是缺少一个相当简单的技巧。我在运行时加载一个模块并调用其中的子例程。问题是我不一定知道导出的子例程的名称，但一定有一个并且它被导出。

这些模块看起来都是这样的，即。他们大致遵循从 perlmonks.org 获取的模板

package modules::Test;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = (*TestSubSomeUnknownName);
@EXPORT_OK   = qw(&TestSubSomeUnknownName);
%EXPORT_TAGS = ( ALL => [qw(&TestSubSomeUnknownName)]
               );


sub TestSubSomeUnknownName
{
    # return a hash reference
}

然后我可以像这样访问 sub假设我知道它的名字：

use Module::Load;

my $package = "modules::Test";
my $subr = "TestSubSomeUnknownName";

load $package;
# Call the subroutine
my $hashref = $package->$subr;

但是如果有人拼错了包中的名字或者我不知道怎么办？解决方案似乎是使用 EXPORT 之一来查看其中的内容，但如何才能完成呢？

Answer 1

• @EXPORT 应包含名称而不是符号。
• 函数名称前不需要使用 & 符号，而且它是非标准的。
• 请记住在模块末尾返回 1。

• 如果您想检查包可以做什么，请使用can。

  die '自动导入子未命名为“TestSubSomeUnknownName”' 
      除非 $package->can( 'TestSubSomeUnknownName' )
      ;
  $package->TestSubSomeUnknownName(); 
  

Answer 2

您可以尝试 @modules::Test::EXPORT 包含的内容。另外，尝试运行 $modules::Test::EXPORT[0]->();

Answer 3

您是否：

• 正在编写模块并想知道如何导出子例程？
• 您是否正在查看一个模块并想要使用其中的子例程？

对于第一个问题，答案通常是不要自动导出任何内容。如果在@EXPORT_OK列表下放置子程序名称列表，则可以在主程序中使用以下语法导出这些子程序：

 use My::Module qw(subroutines to be imported);

如果要自动导入子程序，可以将其放在<代码>@EXPORT 列表。这些必须以 File::Copy 自动导入复制子例程的方式自动导入。

现在，现代 Perl 标准不赞成导出任何内容，因为它会污染用户的命名空间，而不必通知用户。如果您真的非常想导入某些内容，现在的标准是使用 @EXPORT_OK，因此用户必须在 use 语句中列出他们想要导入的子例程。这至少记录了污染情况。

一些现代模块（例如 File::Spec）不导入任何内容。您要么必须在子例程中添加模块名称前缀，要么使用面向对象语法（即使像File::Spec一样，它也不是真正面向对象的，因为没有）

这给我们带来了另一件事：在模块中使用面向对象的 Perl。然后，您不必担心导出任何内容，因为您在 OOPerl 中不需要。

如果您尝试解决第二个问题并且只是尝试从第三方模块查找子例程的名称，请使用 perldoc 命令并查看文档。您可以查看 @EXPORT 和 @EXPORT_OK 列表来查看导出的内容，但可能有些内容未导出（例如 $File: File::Find 模块中的 :Find::Name 变量）可能很重要。

如果您真的想深入了解一下，您可以尝试像这样遍历每个包变量：

#! /usr/bin/env perl
use strict;
use warnings;
use feature qw(say);

while (my ($var, $type) = each %Foo::) {
    if (defined &$type) {
        say "$var is a subroutine";
    }
    else {
        say "$var is defined as something or another";
    }
}

package Foo;

our %bar = (foo => 1, bar => 2);
our @foo = qw(foo bar);
our $fubar = "barfu";

sub barfu {
    print "FOO!";
    return "FOO!";
}

这将遍历包，向您显示定义的内容，甚至告诉您它是否是子例程。我得到以下输出：

barfu is a subroutine
fubar is defined as something or another
bar is defined as something or another
foo is defined as something or another

除了定义的子例程之外，我无法弄清楚如何查看它是什么类型的变量。也许其他人可以帮我弄清楚。我可能需要对 eval 做一些事情。

---

感谢 Eric Storm 的修改

下面将显示它的类型。不幸的是，这会说一切都是标量和全局。 Glob 是可以理解的（它是一个 glob）但是一个标量？我想暂时将这些类型排除在 for 循环之外。

#! /usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use Data::Dumper;

while (my ($var, $type) = each %Foo::) {
    print "$var";
#   foreach my $ref_type (qw(SCALAR GLOB ARRAY HASH CODE REF LVALUE FORMAT IO VSTRING Regexp)) {
    foreach my $ref_type (qw(ARRAY HASH CODE REF LVALUE FORMAT IO VSTRING Regexp)) {
        if (defined *$type{$ref_type}) {
            say qq("$var" is a type $ref_type);
        }
    }
}

package Foo;

our %bar = (foo => 1, bar => 2);
our @foo = qw(foo bar);
our $fubar = "barfu";

sub barfu {
    print "FOO!";
    return "FOO!";
}

Answer 4

所以最后我回到这个问题 - 也许我有点含糊，但我遇到的问题是动态加载模块，并通过仅查看动态加载的模块来找出从这些模块导出的内容。

经过一番黑客攻击后，以下工作达到了目的：

my $package = 'modules::Test';
load $package;
my $exports; 
eval {
    no strict;
    $exports = \@{"$package\::EXPORT"};
};
# Call the subroutine
my $subr = @{$exports}[0];
my $hash = $package->$subr if($package->can($subr));

要加载的包的名称只是一个字符串，加载了包，$exports 行（从 Exporter.pm 复制，我发现单步执行 $_->import) 返回导出符号的列表，然后我可以调用第一个符号。

如果有人可以进一步改进这一点，我很感兴趣。