如何从 Perl 中的部分命名空间动态发现包？

Question

我的目录结构如下所示：

Foo::Bar::Baz::1 Foo::Bar::Baz::2 等

我可以列出类似以下内容的包：

use Foo::Bar::Baz;

谢谢！

编辑：更清楚地说明了模块是什么。

Answer 1

如果您想加载包含路径中具有特定前缀的所有模块（例如 a::b::c 下的所有模块，您可以使用 Module::Find。

例如：

use Module::Find 'useall';

my @loaded = useall 'Foo::Bar::Baz';  # loads everything under Foo::Bar::Baz

这取决于您使用以下命令设置的 @INC 路径必要的目录，因此首先进行任何所需的操作（例如使用use lib）。

Answer 2

通常，像 a/b/c.pl 这样的脚本不会有 main 之外的命名空间。也许您正在考虑使用诸如 a/b/c.pm 之类的名称来发现模块（这是一个不好的名称，因为小写的包名称通常是为 Perl 内部保留的）。

但是，给定目录路径，您可以使用 潜在 Perl 模块>文件::查找:

use strict;
use warnings;
use File::Find;
use Data::Dumper;

my @modules;
sub wanted
{
    push @modules, $_ if m/\.pm$/
}
find(\&wanted, 'A/B');

print "possible modules found:\n";
print Dumper(\@modules)'

Answer 3

这可能有点过头了，但是您可以在加载模块之前和之后检查符号表并查看发生了什么变化：

use strict; use warnings;
my %original = map { $_ => 1 } get_namespaces("::");
require Inline;
print "New namespaces since 'require Inline' call are:\n";
my @new_namespaces = sort grep !defined $original{$_}, get_namespaces("::");
foreach my $new_namespace (@new_namespaces) {
  print "\t$new_namespace\n";
}

sub get_namespaces {
  # recursively inspect symbol table for known namespaces
  my $pkg = shift;
  my @namespace = ();
  my %s = eval "%" . $pkg;
  foreach my $key (grep /::$/, keys %s) {
    next if $key eq "main::";
    push @namespace, "$pkg$key", get_namespaces("$pkg$key");
  }
  return @namespace;
}

---

New namespaces since 'require Inline' call are:
        ::AutoLoader::
        ::Config::
        ::Digest::
        ::Digest::MD5::
        ::Dos::
        ::EPOC::
        ::Exporter::
        ::Exporter::Heavy::
        ::File::
        ::File::Spec::
        ::File::Spec::Cygwin::
        ::File::Spec::Unix::
        ::File::Spec::Win32::
        ::Inline::Files::
        ::Inline::denter::
        ::Scalar::
        ::Scalar::Util::
        ::Socket::
        ::VMS::
        ::VMS::Filespec::
        ::XSLoader::
        ::vars::
        ::warnings::register::

Answer 4

需要明确的是，您是否正在查看随机 Perl 代码中的随机包？

或者对于 Perl 模块，例如“a/b/c/d1.pm”和模块“a::b::c::d1”？

无论哪种情况，您都不能使用单个“use”语句来加载所有它们。

您需要做的是使用 glob 或 File::Find 查找所有适当的文件。

在第一种情况（模块）中，您可以通过 require-ing 每个文件来加载它们，或者通过将文件名转换为模块名称（s#/#::#g; s# \.pm$##;) 并分别在每个模块上调用 use 。

至于嵌套在随机 Perl 文件中的实际包，这些包可以是：

• 通过 grep 每个文件列出（同样，通过 glob 或 File::Find 找到） for /^package (.*);/

• 实际是通过对每个文件执行require $file来加载的。

  在这种情况下，请注意 a/b/c/1.pl 中每个包的包名称不需要与“ a::b::c" - 例如它们可以由文件作者“p1”、“a::p1”或“a::b::c::p1_something”命名。