Hur man skapar Modul Paket från scratch i perl.

Tack på förhand.

Detta är ett ganska stort ämne och det skulle ta mer än ett enda forum tråden skulle besätta. Auktoritativ information kan hittas i perlmod manpage. Vill berätta för oss om du har svårigheter att förstå det.

Jag kan skapa en distribution av perl paketet. Men jag är inte kunna installera med distribution på alla andra maskiner. Makefile.PL ser ut så här


Makefile.pl

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

använda inc:: Modul:: Installera;
använda CWD;
använd Arkiv: Spec;

min $ version;


# # Om filversionen finns, den innehåller våra versoin, annars
# # Vi använder version kodade i innehåller katalognamn som vår version,
# # Och skapa Filversion.
if (-r-versionen)
(
öppen (VERS, 'Version');
do (
$ version \u003d <VERS>;
) While ($ version! ~ / [\ W \ d ]+/);
nära (VERS);
chomp ($ version);
print ( "Version $ version \ n");
)
annan
(
min @ dirs;
min $ version_from_dir;
min $ vers;

# Dra den aktuella arbetskatalogen in en lista med förälder kataloger
@ dirs \u003d File:: Spec-> splitdir (getcwd ());
# Våra innehåller katalogen kommer att namnges av våra release antal
$ version_from_dir \u003d pop (@ dirs);
# Se till att föregående kommentar är sant
if (! (definierad ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d "utveckling";
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Skapa version linje
$ vers \u003d 'min $ VERSION \u003d \''. $ version_from_dir. "" \ n ";

öppen (VERS "> VERSION") or die ( "Kunde inte skapa Filversion: $!");
print (VERS "$ version_from_dir \ n");
nära (VERS);

# # Ställa in $ VERSION variabel i varje fil till vad vi trodde
# # Anges ovan. Eftersom våra filer som heter *. pl innan förpackningen kommer vi att
# # Skriver modifierad version med bas filnamnet utan. Pl

min $ file;

foreach $ fil (Glob (bin / *. pl) Glob ( 'lib / TestManager / *. pm "))
(
min $ newfilename;
min @ newfile;
min $ line;
# Inte ändra namn på våra bibliotek moduler
if ($ file \u003d ~ / \. pm $ /)
(
$ newfilename \u003d $ file;
)
annan
(
($ newfilename) \u003d ($ file \u003d ~ /(.*) \. pl $ /);
)

öppen (Orig, $ file) or die ( "Kunde inte läsa $ file: $!");

# Ta bort alla "$ version \u003d" rader och ersätta dem med den här versionen
foreach $ rad (<ORIG>)
(
if ($ line \u003d ~ / \ s * \ $ VERSION \ s *\u003d /)
(
push (@ newfile, $ vers);
)
annan
(
push (@ newfile, $ line);
)
)
nära (Orig);

# Klar någon redan existerande kopia
(-e $ newfilename) & & unlink ($ newfilename);

# Skriva taggade, förlängning mindre kopia
öppen (märkt "> $ newfilename") or die ( "Kan inte skriva taggade $ newfilename: $!");
foreach $ rad (@ newfile)
(
print (taggade $ line);
)
nära (taggade);

chmod (0755, $ newfilename);
)
)



# Definiera metadata
Namnet "modulnamn ';
abstrakt "Perl-baserade verktyg för att välja, utföra och rapportera test ";
author "författaren";
perl_version'5 ,008 ';
licens "perl';
version $ version;


# Säga vad vi behöver
configure_requires "Arkiv: Kopiera '\u003d> 0;
kräver "xyz_Module '\u003d>'1 .0';

# Säga vad behöver inte indexeras
no_index Skriv "directory" \u003d> 'docs';

# Kopia omdöpt skript att installera platser
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;

-------------------------------------------------- --------------------
Alla förändringar måste göras för Makefile.pl?

Tack på förhand