perl - 如何将我的 Perl 应用程序作为单个文件分发？

Question

我有一个 Perl 脚本 (foo.pl)，它使用 require 机制从同一目录加载 Foo.pm：

require "./Foo.pm";
...
my $foo = new Foo::Bar;

Foo.pm 遵循标准模块格式：

package Foo::Bar;
...
1;

我不想将我的应用程序分发为两个文件（foo.pl 和 Foo.pm），我只想分发一个文件。更具体地说，我想让 Foo.pm 成为 foo.pl 脚本的一部分。

我该如何做到这一点？

简单地合并两个文件 (cat foo.pl Foo.pm > foo2.pl) 的简单方法不起作用。

Answer 1

如果您有兴趣将您的 Perl 脚本打包成包含它所依赖的所有模块的二进制文件，您可以使用PAR Packager：

pp -o binary_name foo.pl

Answer 2

一个文件可以包含多个包。先放你的课，然后是主脚本：

package Foo::Bar;

sub new { 
  my $class = shift;
  return bless {}, $class;
}

#...

package main;

my $foo = Foo::Bar->new();
print ref $foo;  # Foo::Bar

Answer 3

您的代码不起作用（尽管说明您收到的错误消息会很有帮助），因为您在定义之前尝试使用 Foo::Bar。尝试这个：

use strict;
use warnings;
my $foo = Foo::Bar->new();
# more code...

# end code

# begin definitions
BEGIN {
    package Foo::Bar;
    use strict;
    use warnings;
    # definitions...
    1;

    package Foo::Baz;
    # more stuff, if you need to define another class
}

补充：

• 处处严查。
• 显式调用构造函数，而不是通过 indrect-object 方法：Perl 中的 new Some::Class 和 Some::Class->new() 有什么区别？

Answer 4

你已经得到了一些好的答案。此外，可以制作一个可以直接作为脚本运行的模块。

package Foo;

__PACKAGE__->run(@ARGV) unless caller();

sub run {
    # Do stuff here if you are running the Foo.pm as
    # a script rather than using it as a module.
}

有关其他详细信息，请参阅 brian d foy 的脚本如何成为模块。

Answer 5

总体方案是用您需要的内容替换您的“要求......”。不仅如此（可能需要 BEGIN { }），而且我不完全确定所涉及的内容。当然，您希望将其自动化。

这是另一种选择：生成单个可执行文件，您所依赖的模块使用PAR/pp打包在其中