Hogyan hozzunk létre a modul-csomagok a semmiből perl.

Köszönöm előre.

Ez egy elég nagy téma, és ez több, mint egy fórum téma is foglalnak. Hiteles információ megtalálható perlmod man. Ne mondja el nekünk, ha nehezen hogy.

Én is létrehozhat elosztás ki a perl csomagot. De én nem vagyok képes telepíteni a forgalmazás minden más gépek. Makefile.PL így néz ki


Makefile.pl

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

inc használatát:: Modul:: Telepítse;
CWD használatát;
használata File:: Spec;

my $ version;


# # Ha a verziója létezik, ez tartalmazza a versoin, máskülönben
# # Használt változata a kódolt tartalmazó könyvtár neve, mint a mi változata,
# #, És teremtsék meg a VERSION fájlt.
if (-r 'VERSION')
(
Open (VERS, 'Verzió');
do (
$ version \u003d <VERS>;
) While ($ version! ~ / [\ W \ d ]+/);
Close (VERS);
chomp ($ version);
print ( "Version $ version \ n");
)
vagy
(
my @ dirs;
my $ version_from_dir;
my $ vers;

# Húzza az aktuális könyvtárban egy listát szülőkönyvtárra
@ dirs \u003d File:: Spec-> splitdir (getcwd ());
# Mi tartalmazó könyvtár neve lesz a mi release száma
$ version_from_dir \u003d pop (@ dirs);
# Győződjön meg arról, hogy az előző hozzászólás igaz
if (! (defined ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d "fejlesztés";
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Create line változata
$ vers \u003d 'my $ version \u003d \''. $ version_from_dir. "" \ n ";

Open (VERS "> VERSION") or die ( "Nem sikerült létrehozni VERSION file: $!");
print (VERS "$ version_from_dir \ n");
Close (VERS);

# # Meg a $ VERSION változó minden fájlt amit mi figured
# # A fent. Mivel a fájlok nevét *. pl csomagolás előtt, akkor
# # Írjon a módosított változat az alap filename nélkül. Pl

my $ file;

foreach $ file (glob ( "bin / *. pl), glob (" lib / TestManager / *. pm '))
(
my $ newfilename;
my @ newfile;
my $ line;
# Nem átnevezzenek a könyvtári modulok
if ($ file \u003d ~ / \. pm $ /)
(
$ newfilename \u003d $ file;
)
vagy
(
($ newfilename) \u003d ($ file \u003d ~ /(.*) \. PL $ /);
)

Open (orig, $ file) or die ( "Nem lehet olvasni $ file: $!");

# El minden "$ version \u003d" sorok, és helyébe e változat
foreach $ line (<ORIG>)
(
if ($ sor \u003d ~ / \ s * \ $ version \ s *\u003d /)
(
push (@ newfile, $ vers);
)
vagy
(
push (@ newfile, $ line);
)
)
Close (orig);

# Világos minden, már létező példánya
(-e $ newfilename) & & unlink ($ newfilename);

# Írj tagged, kiterjesztés nélküli másolat
Open (TAGGED "> $ newfilename") or die ( "Nem lehet írni tagged $ newfilename: $!");
foreach $ line (@ newfile)
(
print (TAGGED $ line);
)
Close (TAGGED);

chmod (0755, $ newfilename);
)
)



# Define metadata
név modul_név ";
absztrakt "Perlalapú toolset kiválasztására, a végrehajtó és a jelentési vizsgálatot ";
megkeresése "szerző";
perl_version'5 ,008 ";
licenc "perl";
változat $ version;


# Mondják, mire van szükségünk
configure_requires "File:: Copy" \u003d> 0;
kötelezővé xyz_Module '\u003d>'1 .0';

#, Hogy mit nem kell indexálni
no_index 'Directory' \u003d> "docs";

# Átnevezett példányát parancsfájlokat telepíteni locations
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;

-------------------------------------------------- --------------------
Bármilyen változtatásokat kell elvégezni Makefile.pl?

Thanks in advance,