如何找到Perl脚本的模块依赖项?

时间:2008-12-11 10:19:53

标签: perl dependencies module cpan

我希望其他开发人员运行我编写的Perl脚本。该脚本使用许多必须在脚本运行之前安装的CPAN模块。是否可以使脚本(或perl二进制文件)转储所有缺失模块的列表?当我尝试运行脚本时,Perl打印出缺少的模块的名称,但这很冗长,并且不会立即列出所有缺少的模块。我想做点什么:

$ cpan -i `said-script --list-deps`

甚至:

$ list-deps said-script > required-modules # on my machine
$ cpan -i `cat required-modules` # on his machine

有一种简单的方法吗?这不是一个显示阻止,但我想让其他开发人员的生活更轻松。 (所需的模块分散在几个文件中,因此我不容易手工制作列表而不会遗漏任何内容。我知道PAR,但对于我想要的东西来说似乎有点过于复杂。)< / p>


更新:谢谢,Manni,这样做。我不知道%INC,我只知道@INC。我这样解决了这个问题:

print join("\n", map { s|/|::|g; s|\.pm$||; $_ } keys %INC);

打印出来:

Moose::Meta::TypeConstraint::Registry
Moose::Meta::Role::Application::ToClass
Class::C3
List::Util
Imager::Color
…

看起来这样可行。

5 个答案:

答案 0 :(得分:24)

查看Module::ScanDeps及其附带的“scandeps.pl”实用程序。它可以在编译或运行程序之后对依赖项的代码以及%INC转储进行静态(和递归)分析。

请注意,静态源扫描总是错误地包含太多依赖项。 (这是PAR使用的依赖扫描程序,旨在使最终用户最容易。)

最后,您可以选择将脚本分发为CPAN分发。这听起来比实际复杂得多。您可以使用Module::Starter之类的东西来设置试验性App :: YourScript发行版的基本框架。将您的脚本放在bin /子目录中,然后编辑Makefile.PL以引用所有直接依赖项。然后,为了分发你做:

  1. perl Makefile.PL
  2. 使
  3. make dist
  4. 最后一步生成一个不错的App-YourScript-VERSION.tar.gz 现在,当客户端想要安装所有依赖项时,他会执行以下操作:

    1. 正确设置CPAN客户端。只需运行它并回答问题。但无论如何你已经要求了。
    2. “tar -xz App-YourScript-VERSION.tar.gz&amp;&amp; cd App-YourScript-VERSION”
    3. 运行“cpan。”
    4. CPAN客户端现在将自动安装所有直接依赖项和这些发行版的依赖项。根据您的设置方式,它将自动递归地遵循先决条件,或者每次都以y / n提示。

      作为一个例子,您可以在CPAN上查看一些App :: *发行版。我认为App :: Ack就是一个很好的例子。可能是我的CPAN目录(SMUELLER)中的一个App :: *发行版。

答案 1 :(得分:20)

您可以在脚本末尾转储%INC。它将包含所有已使用和必需的模块。但是,当然,如果您不需要有条件的模块(如果$ bar需要Foo),这只会有所帮助。

答案 2 :(得分:13)

对于快速,肮脏,不经常使用,%INC是最好的方法。如果您必须使用持续集成测试或更强大的功能,还可以使用其他一些工具。

Steffen已经提到过Module :: ScanDeps。

Test::Prereq中的代码执行此操作,但它有一个额外的层,可确保您的Makefile.PL或Build.PL将它们列为依赖项。如果你创建scripts look like a normal Perl distribution,那么检查新的依赖关系会相当容易;再次运行测试套件。

除此之外,您可以使用Module::Extract::Use之类的工具,它解析静态代码以查找use和require语句(尽管它不会在字符串evals中找到它们)。这样就可以获得您告诉脚本加载的模块。 此外,一旦您知道加载了哪些模块,就可以将它与David Cantrell的CPANdeps工具结合使用,该工具已经为大多数CPAN模块创建了依赖关系树。

请注意,您还必须考虑可选功能。在这种情况下,您的代码我没有它们,但有时您在需要之前不会加载模块:

sub foo
    {
    require Bar; # don't load until we need to use it
    ....
    }

如果您在试运行或测试中未使用该功能,则不会看到您需要该功能的Bar。当模块在不同的环境(例如,mod_perl或Windows等)中加载不同的依赖模块集时,会出现类似的问题。

没有一种好的,自动化的方法来测试这样的可选功能,因此您可以获得它们的依赖项。但是,我认为这应该是我的待办事项列表,因为它听起来像一个有趣的问题。

答案 3 :(得分:6)

此区域中的另一个工具是Perl::PrereqScanner,它由Dist :: Zilla及其AutoPrereqs插件使用。它安装了一个scan-perl-prereqs程序,该程序将使用PPI和一些插件来搜索大多数类型的prereq声明,使用您定义的最小版本。一般来说,我建议扫描%INC,这可能会带来虚假的要求并忽略版本。

答案 4 :(得分:2)

今天我使用CPAN-like distributions开发了我的Perl应用Dist::Zilla,可以通过AutoPrereq插件处理依赖关系。这个领域的另一个有趣的代码是carton

豫ICP备18024241号-1