Comment créer des paquets de module du zéro en perl.

Merci d'avance.

Ceci est un assez gros sujet et prendre plus d'un seul fil de discussion du forum occupera. Authoritative information peut être trouvée dans perlmod manuel. Dites-nous si vous avez des difficultés à comprendre cela.

Je peux créer une distribution de la perl paquet. Mais je ne suis pas en mesure d'installer la distribution sur tous les autres machines. Makefile.PL ressemble à ça


Makefile.pl

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

inc utilisation:: Module:: Install;
utilisation cwd;
Fichier:: Spec;

my $ version;


# # Si la version de fichier existe, il contient nos versoin, sinon
# # On utilise la version codée dans le nom du répertoire contenant que notre version,
# # Et de créer le fichier VERSION.
si (-r 'version')
(
open (VERS, 'version');
do (
$ version \u003d <VERS>;
) While ($ version! ~ / [\ W \ d ]+/);
close (VERS);
chomp ($ version);
print ( "Version $ version \ n");
)
autre
(
my @ dirs;
my $ version_from_dir;
my $ vers;

# Tirer le répertoire de travail courant dans une liste de répertoires parents
@ dirs \u003d File:: Spec-> splitdir (getcwd ());
# Notre répertoire contenant sera nommé par notre numéro de version
$ version_from_dir \u003d pop (@ dirs);
# Assurez-vous que le commentaire précédent est vrai
if (! (defined ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d "développement";
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Crée la version en ligne
$ to \u003d 'my $ VERSION \u003d \''. version_from_dir $. " '; \ n";

open (VERS, '> VERSION') or die ( "Impossible de créer le fichier VERSION: $!");
print (VERS "$ version_from_dir \ n");
close (VERS);

# # Set de la variable $ VERSION dans chaque fichier de ce que nous avons figuré
# # Ci-dessus. Étant donné que nos dossiers sont nommés *. pl avant de l'emballage, nous
# # Écrire la version modifiée de la base sans le nom de fichier. Pl

my $ file;

foreach $ file (glob ( 'bin / *. pl'), glob ( 'lib / TestManager / *. h'))
(
my $ Nouveau_nom_fichier;
my @ newfile;
my $ line;
# Ne pas re-dénomination de notre bibliothèque de modules
if ($ file \u003d ~ / \. h $ /)
(
Nouveau_nom_fichier $ \u003d $ file;
)
autre
(
($ newFileName) \u003d ($ file \u003d ~ /(.*) \. pl $ /);
)

open (ORIG, $ file) or die ( "Impossible de lire $ file: $!");

# Supprimer tous les "$ VERSION \u003d 'lignes et de les remplacer par cette version
foreach $ line (<ORIG>)
(
if ($ line \u003d ~ / \ s * \ $ VERSION \ s *\u003d /)
(
push (@ newfile $, vers);
)
autre
(
push (@ newfile, $ line);
)
)
close (ORIG);

# Effacer toute copie pré-existante
(-e $ Nouveau_nom_fichier) & & unlink ($ newFileName);

# Tagged écrire, extension-moins exemplaire
open (TAGGED, "> $ Nouveau_nom_fichier") or die ( "Impossible d'écrire tagged $ newFileName: $!");
foreach $ line (@ newfile)
(
print ($ TAGGED ligne);
)
close (TAGGED);

chmod (0755, Nouveau_nom_fichier $);
)
)



# Définition de métadonnées
nom de «module»;
résumé "Perlfondée sur des outils de choix, l'exécution des tests et des rapports »;
auteur "author";
perl_version'5 ,008 ';
licence "perl';
Version $ version;


# Dire ce dont nous avons besoin
configure_requires' File:: Copy '\u003d> 0;
exige «xyz_Module '\u003d>'1 .0';

# Dire ce que n'a pas besoin d'être indexées
no_index 'directory' \u003d> 'docs';

# Copie le nom des scripts pour installer lieux
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;

-------------------------------------------------- --------------------
Tout changement doit être fait pour Makefile.pl?

Merci à l'avance,