Hierarchie mode projet

Version imprimable

Re-bonjour,

Pour reprendre le post : http://www.developpez.net/forums/d14...iable-externe/

Je voudrais créer une arborescence mode projet:

Code:

bin/ build/ conf/

dans le bin :

Code:

bin/script_generateur.pl

dans le conf :

Code:

conf/configuration.pm

et dans le build il y aura le résultat de l'execution du bin/script_generateur.pl

voici ce que j'ai mis :
bin/script_generateur.pl
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl use File::Copy; use strict; use warnings; use configuration; print "@$_\n" for @clients;
conf/configuration.pm
Code:

1 2 3 4 5 6 7 8 9 10 11 12 #!/usr/bin/perl package configuration; use Exporter; our @ISA = 'Exporter'; our @EXPORT = qw(@clients); our @clients = ( ['site', 'site1', 'site2'], ['evol', 'evol1', 'evol2', 'evol3'] );
Mais malheuresement ça ne marche pas :
lorsque je suis dans le répertoire projet/bin/
Code:

1 2 3 perl script_generateur.pl Can't locate configuration.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at script_generateur.pl line 6. BEGIN failed--compilation aborted at script_generateur.pl line 6.
Il se peut que mon code soit juste, mais j'aimerai d'une part juste verifié, et d'autre part demandé comment faire pour ne plus avoir d'erreur. dois-je ajouter un chemin à @INC? @INC est une variable d'environnement?! j'ai pourtant effectué la commande : export INC=$INC:/chemin/to/my/project/, mais toujours le même problème... je ne sais vraiment pas quoi faire...

31/01/2014, 19h59
Lolo78

Utilise la syntaxe suivante pour ajouter les répertoires :

Code:

use lib chemin;

"chemin" étant naturellement le répertoire où se trouve ton module. Cette ligne doit naturellement se trouver avant le "use" de ton module.

Pour plus d'informations: CPAN use lib
03/02/2014, 18h04
ggnore

Tu peux aussi, dans ton shebang, mettre :

Code:

#!/usr/bin/perl -I/conf/

-I pour include

J'ai une préférence pour les chemins absolus, mais c'est discutable.
17/02/2014, 11h03
alexis.melot

Désolé de l'absence.

Avec linclude #!/usr/bin/perl -I /product/admivweb/Proxy_pac_v2/conf ça marche lorsque j'exectute mon code depuis :

Citation:

[admivweb@su11656:/product/admivweb/Proxy_pac_v2] perl bin/script_generateur.pl

et

Citation:

[admivweb@su11656:/product/admivweb/Proxy_pac_v2] perl /product/admivweb/Proxy_pac_v2/bin/script_generateur.pl

mais ça ne marche plus lorsque j'exectute comme ceci :

Citation:

[admivweb@su11656:/product/admivweb/Proxy_pac_v2/bin] perl script_generateur.pl
open failed : No such file or directory at script_generateur.pl line 16.
17/02/2014, 11h18
Lolo78

Ce qui veut dire que ton script se compile correctement mais qu'à l'exécution, il ne trouve pas le fichier utilisé ligne 16. Il y a quoi, dans la ligne 16?

Sinon, il faut sans doute éviter d'avoir un espace entre l'option -I et le chemin du répertoire à ajouter à @INC.
17/02/2014, 11h32
alexis.melot

bon j'ai finalement mis toutes mes lignes de code avec un chemin absolut et ca marche depuis n'importe où.

script_generateur.pl :

Citation:

open(TEMPLATE, "<", "/product/admivweb/Proxy_pac_v2/tmp/template.txt") or die("open failed : $!");

open (FIC_101, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid-ipp1.pac") or die("open failed : $!");
open (FIC_102, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid-ipp2.pac") or die("open failed : $!");
open (FIC_111, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid1-ipp1.pac") or die("open failed : $!");
open (FIC_112, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid1-ipp2.pac") or die("open failed : $!");
open (FIC_121, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid2-ipp1.pac") or die("open failed : $!");
open (FIC_122, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid2-ipp2.pac") or die("open failed : $!");
open (FIC_131, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid3-ipp1.pac") or die("open failed : $!");
open (FIC_132, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw1-valid3-ipp2.pac") or die("open failed : $!");
open (FIC_201, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid-ipp1.pac") or die("open failed : $!");
open (FIC_202, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid-ipp2.pac") or die("open failed : $!");
open (FIC_211, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid1-ipp1.pac") or die("open failed : $!");
open (FIC_212, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid1-ipp2.pac") or die("open failed : $!");
open (FIC_221, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid2-ipp1.pac") or die("open failed : $!");
open (FIC_222, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid2-ipp2.pac") or die("open failed : $!");
open (FIC_231, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid3-ipp1.pac") or die("open failed : $!");
open (FIC_232, ">", "/product/admivweb/Proxy_pac_v2/build/$clients[$i][0]-psw2-valid3-ipp2.pac") or die("open failed : $!");

Le truc c'est que maintenant il n'est plus portable. Or je voudrai qu'il soit portable...
17/02/2014, 11h44
6ril23

si tu veux qu'il soit portable, avec ton exemple, il suffirait peut être juste de mettre le chemin en paramètre genre:

lancement : perl script_generateur.pl "/product/admivweb/Proxy_pac_v2"
dans script:open(TEMPLATE, "<", "$ARGV[0]/tmp/template.txt") or die("open failed : $!");
dans script:open(TEMPLATE, "<", "$ARGV[0]/build/XXX.pac") or die("open failed : $!");

Mais pour cela il faut que ton arborescence soit toujours la même! sinon tu peux mettre les 2 chemins distincts en paramètres de l'agent
perl script_generateur.pl "Chemin/fichier/txt" "Chemin/fichiers/pac"