Discussion :

[alexis.melot]

Re-bonjour,

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

Je voudrais créer une arborescence mode projet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bin/ build/ conf/

dans le bin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bin/script_generateur.pl

dans le conf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Lolo78]

Utilise la syntaxe suivante pour ajouter les répertoires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ggnore]

Tu peux aussi, dans ton shebang, mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

-I pour include

J'ai une préférence pour les chemins absolus, mais c'est discutable.

[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 :

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

et

[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 :

[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.

[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.

[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 :

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...

[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"