Hoe maak Module Pakketten van nul in perl.

Thanks in advance.

Dit is een vrij groot onderwerp en zou meer dan een forum draad zou bezetten. Gezaghebbende informatie kan worden gevonden in perlmod manpage. Doe ons zeggen in het geval u problemen begrijpen dat.

Ik kan een verdeling van de perl pakket. Maar ik ben niet in staat te installeren met de verdeling over alle andere machines. Makefile.PL ziet er als volgt uit


Makefile.pl

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

gebruik incl.:: Module:: Installeer;
gebruik CWD;
gebruik File:: Spec;

my $ versie;


# # Als het bestand VERSION bestaat, bevat onze versoin, anders
# # We gebruiken de versie die zijn gecodeerd in de directory naam als onze versie,
# # En maak de VERSION bestand.
if (-r 'versie')
(
open (VERS, 'TEKST');
do (
$ version \u003d <VERS>;
) While ($ versie! ~ / [\ W \ d ]+/);
close (VERS);
chomp ($ versie);
print ( "Versie $ versie \ n");
)
anders
(
my @ dirs;
my $ version_from_dir;
my $ vers;

# Trek de huidige map in een lijst van de bovenliggende mappen
@ dirs \u003d File:: Spec-> splitdir (getcwd ());
# Ons die map wordt de naam van onze release nummer
$ version_from_dir \u003d pop (@ dirs);
# Zorg ervoor dat de vorige opmerking geldt
if (! (gedefinieerd ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d 'ontwikkeling';
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Maak versie lijn
$ vers \u003d 'my $ VERSION \u003d \''. $ version_from_dir. "" \ n ";

open (VERS, "> VERSION") or die ( "Kan geen bestand maken VERSION: $!");
print (VERS "$ version_from_dir \ n");
close (VERS);

# # Zet de $ VERSION variabele in elk bestand aan wat wij dacht
# # Hierboven. Aangezien onze bestanden zijn naam *. pl voor verpakking, we
# # Schrijf de gewijzigde versie van het basisjaar bestandsnaam zonder de extensie. Pl

my $ file;

foreach $ file (glob ( "bin / *. pl '), glob (' lib / TestManager / *. pm"))
(
my $ newfilename;
my @ newfile;
my $ line;
# Niet opnieuw de naam van onze bibliotheek modules
if ($ file \u003d ~ / \. pm $ /)
(
$ newfilename \u003d $ bestand;
)
anders
(
($ newfilename) \u003d ($ file \u003d ~ /(.*) \. pl $ /);
)

open (ORIG, $ bestand) or die ( "Kan niet lezen $ bestand: $!");

# Verwijder alle '$ VERSION \u003d' en vervang ze met deze versie
foreach $ line (<ORIG>)
(
if ($ line \u003d ~ / \ s * \ $ VERSION \ s *\u003d /)
(
push (@ newfile, $ vers);
)
anders
(
push (@ newfile, $ line);
)
)
close (ORIG);

# Duidelijke eventuele reeds bestaande kopie
(-e $ newfilename) & & unlink ($ newfilename);

# Schrijf gecodeerde, uitbreiding minder kopie
open (TAGGED, "> $ newfilename") or die ( "Kan niet schrijven gecodeerd $ newfilename: $!");
foreach $ line (@ newfile)
(
print (TAGGED $ line);
)
close (TAGGED);

chmod (0755, $ newfilename);
)
)



# Define metadata
naam 'Module_name';
abstract "Perlop basis van tools voor de keuze, de uitvoering en rapportage-tests ";
auteur 'auteur';
perl_version'5 ,008 ';
licentie 'perl';
versie $ versie;


# Zeggen wat we nodig hebben
configure_requires' File:: Copy '\u003d> 0;
vereist "xyz_Module '\u003d>'1 ,0';

# Zeggen wat niet hoeft te worden geïndexeerd
no_index 'directory' \u003d> 'docs';

# Kopie omgedoopt scripts te installeren locaties
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;

-------------------------------------------------- --------------------
Alle wijzigingen moeten worden gedaan voor Makefile.pl?

Thanks in advance,