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

2024-06-19

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

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

这让我有可能告诉用户手动设置PERL5LIB每次他们想要运行应用程序时,都会到 /usr/local/lib ,或者对构建系统进行一些智能操作,让它摆弄每个脚本的use lib后一行--prefix已指定。

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

问题:

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


>>> 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!
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

打包 Perl 应用程序,以便它可以在 Perl 的默认前缀之外工作 的相关文章

随机推荐

  • 熊猫按 n 最大总和分组

    我正在尝试使用groupby nlargest and sum在 Pandas 中一起运行 但在运行时遇到困难 State County Population Alabama a 100 Alabama b 50 Alabama c 40
  • RxJ 从 observable 中获取价值

    在组件中 singleEvent Observable
  • Ember-cli 夹具加载

    我确信我错过了一些小而愚蠢的东西 但似乎无法加载我的装置 这是我有 应用程序 模型 todos js import DS from ember data var Todo DS Model extend title DS attr stri
  • 在 Windows 中使用 PHP 创建受密码保护的 Zip 文件

    我正在 PHP 中创建给定文件的 zip 文件 下面是函数 function create zip file file name zip new ZipArchive zip name file name zip Zip name zip
  • SVN 提交后挂钩在提交后不会运行

    我的服务器上设置了 SVN 存储库 并且遇到提交后问题 我在 iMac 上使用 SmartSVN 作为客户端 我通过 SmartSVN 的 ssh svn 连接 我能够成功连接到 SVN 并对其进行更改 但从 SVN 客户端提交后 我的提交
  • 将 url 参数获取到 asp.net 标签中

    我试图自动将 asp label 的文本设置为 url 参数 但它似乎不起作用 这是我的代码
  • 响应式 CSS 图像锚点标签 - 图像地图样式

    我一直在开发一个响应式网站 并且在图像映射方面遇到了一些问题 图像映射似乎不适用于基于百分比的坐标 经过一番谷歌搜索后 我发现了一个 JS 解决方法 http mattstow com experiment responsive image
  • 枚举类型在打字稿中给出双数组

    我想从枚举数据类型创建一个下拉列表 但是当我尝试将枚举更改为具有名称和值的对象时 枚举数组返回枚举成员的两倍 使用函数这个帖子 https stackoverflow com questions 18111657 how does one
  • 为什么动态 qml 对象的创建如此缓慢,有哪些合理的替代方案?

    我想要实现的目标类似于棋盘游戏 有一个100 100的网格 放在一个Item它驻留在一个Flickable 游戏板 的各个矩形都是 svg 图像 目前大约有 20 种 可能会增加到数百种 作为基准测试 我只是尝试用元素填充 世界 Compo
  • Google Cloud Console 免费试用期满后恢复虚拟机实例

    我已经搜索了我的问题 但很惊讶没有找到答案 因为这一定是相当常见的情况 我的谷歌云控制台免费试用版大约两个月前就过期了 而我却没有意识到 我现在已升级到付费帐户 但我的 Wordpress VM 实例不再存在 事实上 没有虚拟机实例 Goo
  • 如何将 Gradle 脚本插件变成二进制插件

    我有一堆像这样的 gradle 脚本插件https github com docToolchain docToolchain blob master scripts exportExcel gradle https github com d
  • F# 查询,按单列对多个值进行分组

    我有一个 F sql 查询 需要对每组中的两列求和 let financials query for data in dbData do groupValBy data earning data losses data store into
  • 使用AndroidKeyStore身份验证的无限循环

    当我使用需要用户身份验证才能使用密钥的 AndroidKeyStore 时 我的应用程序进入无限循环 setUserAuthenticationRequired true setUserAuthenticationValidityDurat
  • 如何在codeigniter中插入具有多个单选名称的单选按钮值?

    我正在尝试使用 codeigniter 进行在线测验 其中有一个针对某些主题的动态测验 用户可以在每个问题中添加问题和多项选择答案 我如何获得每个问题的每个多项选择答案中每个答案的值 p p
  • 在C中重新分配结构

    我是 C 新手 正在尝试结构 创建结构后 是否可以用大括号重新分配它 typedef struct int height int age Person int main void Person bill 100 35 bill 120 34
  • 检索线索广告 Facebook API

    我在检索潜在客户广告时遇到问题 我有广告 ID 和页面 ID 我没有创建它们 但被添加为开发人员 我试图使用 PHP SDK 和这个https developers facebook com docs marketing api guide
  • 如何把父母和孩子联系起来?

    有两个简单的类 一个只有parent属性 并且两者兼而有之parent and children属性 这意味着同时具备两者的人parent and children继承自唯一的parent 这是只有parent属性 我们就这样称呼它吧Chi
  • 处理 SwiftUI 视图中的可选值/nil 值 - 在 SwiftUI 中使用 if let [重复]

    这个问题在这里已经有答案了 视图通常不允许可选参数值 从而导致类似的错误Initializer init requires that String conform to StringProtocol struct Person var na
  • SQL 2008全文索引填充延迟

    我的经理说 在基础表数据更改后 可能需要一段时间才能更新全文搜索索引 例如 如果我有一张桌子Products有一个柱子Description我更新了该描述 然后我可能需要一些时间才能搜索该新描述 真的吗 这需要多长时间 SQL 2008 对
  • 打包 Perl 应用程序,以便它可以在 Perl 的默认前缀之外工作

    我正在使用 Module Build 尽管我在构建环境上很灵活 来打包我正在编写的一些 Perl 软件 供我工作的内部使用 它包括一些脚本和一些辅助模块 我的计划是这样你就可以指定任何你想要的前缀 即perl默认值之外的东西 INC 在构建