如何将 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）。 pm) 我只想分发一个文件。更具体地说，我想让 Foo.pm 成为 foo.pl 脚本的一部分。

我该如何实现这一目标？

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

Answer 1

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

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
}

补充：

• 到处严格检查。
• 显式调用构造函数，而不是通过间接对象方法： Perl 中 new Some::Class 和 Some::Class->new() 有什么区别？

Answer 4

总体方案是将您的“要求...”替换为您需要的内容。还有更多的事情（可能需要 BEGIN { }），而且我不太确定涉及什么。当然，您希望使其自动化。

这是一种替代方法：生成一个可执行文件，其中使用 PAR/pp

Answer 5

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

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 的脚本如何成为模块。