Como criar Módulo Pacotes a partir do zero no perl.

Thanks in advance.

Este é um tema bastante grande e gostaria de ter mais de uma instância única discussão iria ocupar. Authoritative informações podem ser encontradas em perlmod manpage. Não diga-nos no caso de você ter dificuldades em compreender isso.

Posso criar uma distribuição fora do perl pacote. Mas eu não sou capaz de instalar com a distribuição em todas as outras máquinas. Makefile.PL parecido com este


Makefile.pl

-------------------------------------------------- ---------

utilização inc:: Módulo:: Instalar;
utilização doença emaciante crónica;
use File:: Spec;

my $ version;


# # Se a versão do arquivo existir, ele contém o nosso versoin, caso contrário,
# # Usamos a versão codificada no nome do directório que contém a nossa versão,
# # E criar o arquivo VERSION.
if (-r 'VERSION')
(
open (VERS, 'Versão');
do (
$ version \u003d <VERS>;
) While ($ versão! ~ / [\ W \ d ]+/);
close (VERS);
chomp ($ version);
print ( "Version $ version \ n");
)
diferente
(
my @ dirs;
my $ version_from_dir;
my $ vers;

# Puxar directório corrente de trabalho em uma lista de diretórios pai
@ dirs \u003d File:: Spec-> splitdir (getcwd ());
# Contendo nosso diretório será chamado pela nossa libertação número
$ version_from_dir \u003d pop (@ dirs);
# Certifique-se que o comentário anterior é verdadeira
if (! (defined ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d "Desenvolvimento";
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Criar versão linha
$ vers \u003d 'my $ VERSION \u003d \''. $ version_from_dir. " '; \ n";

open (VERS, '> VERSION') ou die ( "Não foi possível criar arquivo VERSION: $!");
print (VERS "version_from_dir $ \ n");
close (VERS);

# # $ VERSION definir a variável em cada arquivo para tudo o que imaginei
# # Com o acima exposto. Uma vez que os nossos arquivos são denominados *. pl embalagem antes, vamos
# # Escrever a versão modificada para a base sem o arquivo. Pl

my $ file;

foreach $ file (bola ( 'bin / *. pl "), bola (' lib / TestManager / *. h '))
(
my $ newfilename;
my @ newfile;
my $ linha;
# Não re-nome nossa biblioteca módulos
if ($ file \u003d ~ / \. h $ /)
(
newfilename $ \u003d $ arquivo;
)
diferente
(
($ newfilename) \u003d ($ file \u003d ~ /(.*) \. pl $ /);
)

open (ORIG, $ arquivo) ou die ( "Não foi possível ler o ficheiro $: $!");

# Remove todos os' $ VERSION \u003d 'linhas e substituí-los com esta versão
foreach $ line (<ORIG>)
(
if ($ linha \u003d ~ / \ s * \ $ VERSION \ s *\u003d /)
(
push (@ newfile, $ vers);
)
diferente
(
push (@ newfile, $ linha);
)
)
close (ORIG);

# Limpar qualquer cópia pré-existente
(-e $ newfilename) & & unlink ($ newfilename);

# Tagged escrever, de extensão menor cópia
open (tagged, "> $ newfilename") ou die ( "Can't write $ tagged newfilename: $!");
foreach $ line (@ newfile)
(
print (tagged $ linha);
)
close (tagged);

chmod (0755, $ newfilename);
)
)



# Definir metadados
nome 'nome_módulo';
resumo "Perlferramentas de base para a escolha, executar testes e de comunicação ";
autor "autor";
perl_version'5 ,008 ';
licença 'perl';
versão $ version;


# Dizer o que precisamos
configure_requires' File:: Copy "\u003d> 0;
exige a "xyz_Module '\u003d>'1 .0';

# Dizer que não precisa de ser indexados
no_index 'diretório' \u003d> 'docs';

# Cópia renomeada scripts para instalar locais
install_script ( 'bin/script1');
install_script ( 'bin/script2');
install_script ( 'bin/script3');
install_script ( 'bin/script4');
install_script ( 'bin/script5');
install_script ( 'bin/script6');

WriteAll;

-------------------------------------------------- --------------------
Todas as alterações devem ser feitas para Makefile.pl?

Thanks in advance,