Как я могу распространять приложение Perl в виде одного файла?

Question

У меня есть сценарий Perl (foo.pl), который загружает 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

Вашего код не работает (хотя это было бы полезно указать сообщение об ошибке (ы), которые вы), потому что вы пытались использовать 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-объекта: What is the difference between new Some::Class and Some::Class->new() in Perl?

Answer 2

Общая схема должна заключаться в замене вашего «требовать ...» на содержимое того, что вам нужно. Для этого есть нечто большее (BEGIN {} может понадобиться), и я не совсем уверен, что с этим связано. Конечно, вы бы хотели его автоматизировать.

Вот альтернатива: сформировать единый исполняемый файл, в котором модули вы зависите от упакованы внутри него с помощью PAR/pp

Answer 3

Файл может содержать несколько пакетов. Сначала поместите свой класс, а затем главный сценарий:

package Foo::Bar; 

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

#... 

package main; 

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

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. 
} 

Для получения дополнительной информации см Брайен d Фой-х How a Script Becomes a Module.

Answer 5

Если вы заинтересованы в паковать свой скрипт на Perl в двоичном со всеми модулями она зависит от включенных, вы можете использовать PAR Packager:

pp -o binary_name foo.pl