打包一个 Perl 应用程序，以便它可以在 Perl 的默认前缀之外工作

Question

我正在使用 Module::Build （尽管我在构建环境上很灵活）来打包我正在编写的一些 Perl 软件，供我工作的内部使用。它包括一些脚本和一些辅助模块。我的计划是这样你可以在构建过程中指定任何你想要的前缀（即 perl 默认 @INC 之外的东西），并且构建的脚本应该仍然能够找到它们的帮助程序模块没有任何问题。

我想这样做是因为我想使用“Encap”在内部分发该软件，这是一个打包工具，默认情况下不能安装 /usr/local 之外的任何内容，并且位于我们的 RedHat 上。默认情况下，perl 不会在 /usr/local/lib 中搜索模块。

这让我有可能告诉用户每次想要运行应用程序时手动将 PERL5LIB 设置为 /usr/local/lib，或者对构建系统进行一些智能操作来获得它指定 --prefix 后，修改每个脚本的 use lib 行。

现在，我只是在每个脚本中手动设置 use lib 直接指向 /usr/local/lib ，但我不太喜欢这种解决方案。主要是因为测试过程：我想在测试期间覆盖 @INC ，以便它首先使用我的工作目录作为 perl 模块，但是在构建后，应该从 @ 中删除工作目录INC 并替换为用户指定的前缀。但也因为我希望这个软件可以安装到任意位置（例如 NFS 上的某个小岛，有自己的 bin/ 和 lib/ 目录）并且仍然可以正常工作。

问题：

Module::Build 是否允许我在构建步骤期间摆弄脚本的 use lib 行？我注意到 MakeMaker 有一个 pm_filter 选项，允许您指定搜索和替换，可以在构建时任意修改 .pm 文件，但这仅适用于 .pm 文件，不适用于脚本。 Module::Build 应该更灵活，但我淹没在文档中试图找出你在哪里指定它。

Answer 1

>>> daxim@champion:/tmp/Foo-Bar$ tree
.
├── bin
│   └── foobar
├── Build.PL
├── inc
│   └── Local
│       └── Module
│           └── Build
│               └── Fnord.pm
└── lib
    └── Foo
        └── Bar.pm

7 directories, 4 files

>>> daxim@champion:/tmp/Foo-Bar$ cat bin/foobar
use lib "DUMMY";
use Foo::Bar;
print "It works!\n";

>>> daxim@champion:/tmp/Foo-Bar$ cat Build.PL
use lib 'inc';
use Local::Module::Build::Fnord;

my $build = Local::Module::Build::Fnord->new(
    module_name => 'Foo::Bar',
    license     => 'restricted',
);
$build->add_build_element('bin');
$build->create_build_script;

>>> daxim@champion:/tmp/Foo-Bar$ cat inc/Local/Module/Build/Fnord.pm
package Local::Module::Build::Fnord;
use parent 'Module::Build';
sub process_bin_files {
    my ($self) = @_;
    my $lib = $self->install_base . '/lib/perl5';
    system "chmod u+w blib/script/*";
    my $call = qq($^X -p -i -e's[use lib "DUMMY";][use lib "$lib";]' blib/script/*);
    print "$call\n";
    system $call;
};
1;

>>> daxim@champion:/tmp/Foo-Bar$ cat lib/Foo/Bar.pm
package Foo::Bar;
1;

>>> daxim@champion:/tmp/Foo-Bar$ perl Build.PL --install_base=/tmp/usr/local
⋮

>>> daxim@champion:/tmp/Foo-Bar$ ./Build install
Building Foo-Bar
/home/daxim/local/bin/perl -p -i -e's[use lib "DUMMY";][use lib "/tmp/usr/local/lib/perl5";]' blib/script/*
Installing /tmp/usr/local/lib/perl5/Foo/Bar.pm
Installing /tmp/usr/local/bin/foobar

>>> daxim@champion:/tmp/Foo-Bar$ cat blib/script/foobar
use lib "/tmp/usr/local/lib/perl5";
use Foo::Bar;
print "It works!\n";

>>> daxim@champion:/tmp/Foo-Bar$ cd /tmp/usr/local/bin/

>>> daxim@champion:/tmp/usr/local/bin$ perl foobar
It works!