如何使用脚本分发perl模块？

Question

这是个好主意吗？ 我写了一个脚本，它使用了一些不受欢迎的模块。 安装它们需要花费很多时间，因此我认为将它们与应用程序一起分发会更好。 我怎样才能做到这一点？

Answer 1

通常将依赖项运送到发行版的inc目录中。 我已经在如何链接PerlIO Perl软件包而不进行“安装”并自动从CPAN自动安装缺少的模块的过程中讨论了此问题。

问题是模糊的，因此建议而不是代码：我假设您根本不需要安装。 将解压后的依赖项放入inc目录。 在运行时use lib 'inc';访问它use lib 'inc'; 。

就这样。

Answer 2

当然。 根据Apache许可，您可以重新分发模块。

这些面向对象的模块不导入任何功能吗？ 然后，您无需执行任何操作。 只需删除use My::Module; 从主程序中，然后将My::Module追加到主程序的末尾。

如果您没有使用面向对象的代码，而是通过@EXPORT数组导出函数，则必须采取一些其他措施：

在这里，我必须添加Local::Foo->import qw(foo)才能将foo函数导入到主程序中， 即使它是通过@EXPORT而不是@EXPORT_OK导出的 。 我还必须在模块中的导出声明周围使用BEGIN。 否则，我的主程序将找不到任何要导入的内容：

原始程序：

主程序：

#! /usr/bin/env perl
# test.pl

use warnings;
use strict;
use Local::Foo;

use feature qw(say);

my $bar = foo("bar");

say "Bar is '$bar'";

模块本地:: Foo

#! /usr/bin/env perl
# Local/Foo.pm
#
package Local::Foo;

use Exporter qw(import);
our @EXPORT = qw(foo);

sub foo {
    my $value = shift;
    return "FOOOOOO $value";
}
1;

合并程序

#! /usr/bin/env perl
# test.pl

use warnings;
use strict;
# use Local::Foo;

# Force importation of `foo`

Local::Foo->import qw(foo);

use feature qw(say);

my $bar = foo("bar");

say "Bar is '$bar'";

#-----------------------------------------------------------------------
#! /usr/bin/env perl
# Local/Foo.pm
#
package Local::Foo;

# Add BEGIN clause to module

BEGIN {
    use Exporter qw(import);
    our @EXPORT = qw(foo);
}

sub foo {
    my $value = shift;
    return "FOOOOOO $value";
}
1;