Discussion :

[Batou]

bonjour,

je developpe un programme qui servira a plusieurs personnes en meme temps donc je vais le mettre sur un serveur.
Pour faire les tests, j'ai travaille jusqu'a present sur un serveur local et mon fichier CGI a un chemin en dur pour prendre appui sur les modules perl que j'ai codes.
(genre : C:\Perl\lib\module.pm)

Ma question est que une fois ce script CGI mis sur le serveur, les modules aussi doivent etre sur le serveur ?
Si oui, il faut mettre quoi comme adresse pour que le CGI les trouve ?
Si non, ca veut dire qu'il faut que j'installe ActivePerl (tous mes utilisateurs ont M$ Windows) sur tous les postes ?

Voila, a plus !
Merci d'avance

[Jeh]

C'est pas trop clair ce que tu demandes...
Comment fais-tu pour utiliser ta bibliothèque jusqu'à présent ??
Tu fonctionnes en mode web ou pas ?
Les utilisateurs dont tu parles sont des développeurs ou seulement des personnes qui ont besoin d'éxecuter ton script ?
Ton architecture cible, c'est bien un serveur + des postes utilisateurs sur le même LAN ?
Pour appeler ton script depuis les postes de tes utilisateurs (je suppose alors qu'il ne vont qu'éxecuter ton script) tu tapes dans la barre d'adresse de ton navigateur une URL du genre (suivante la conf de ton serveur web):
http://@IP_serveur/mon_script.pl

[Batou]

salut Jeh/Bender,

merci pour la reponse, dsl de n'avoir pas ete clair.

Pour l'instant, tout est sur mon PC. J'ai un server apache dessus, et une base MySQL dans laquelle je stocke des donnees.
J'ai programme une interface utilisateur de cette base de donnees avec un script CGI.
Pour l'instant, on accede donc a la base de donnees sur mon PC, a partir des autres PC du LAN, en tapant mon adresse ip et puis le nom du script dans le navigateur web.

http://000.000.000.007/monscript.cgi

Dans mon script CGI, je reference mes modules en mettant en debut de script :

Code :

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

1
2
#!C:\Perl\bin\perl.exe -w
use lib "c:/Perl/lib/ANC";

Ma question est pour savoir si ces chemins en dur doivent changer qd je migrerai mon script et ma base de donnees sur un serveur. (autre que localhost, sur un equipement a part)

Voila, j'espere etre clair cette fois...

[Jeh]

Il faudra bien sur modifier le chemin d'accès à tes librairies. Eventuellement aussi le shebang.
Si tu as des paramètres à coder en dur (@IP, etc), je peux te conseiller de faire un .pl avec toutes ces infos dedans. Ajoutes également une entrée à la variable @INC qui correspond à ton chemin vers tes librairies. Ainsi, dans tes scripts, tu n'auras qu' à faire un require de ton pl de "configuration" et faire un use de tes librairies. Et lorsque que tu migres ton scripts et tes librairies, tu n'as que le .pl de "configuration" à modifier ! Si tu as plusieurs dizaines de scripts, c'est un gain de temps non négligeable.
Pour synthétiser tout ça, tu devras avoir dans le fichier .pl de "configuration" (nommé par exemple env_scripts.pl):

Code :

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

1
2
3
4
5
6
 
#! c:/Perl/perl
 
push @INC "mon_chemin_vers_mes_librairies";
 
my $IP_host_a_contecter  = "10.10.10.10";

Et dans ton/tes scripts :

Code :

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

1
2
3
4
5
6
7
8
 
#! c:/Perl/perl
 
require "env_scripts.pl";
 
use ta_librairie;
 
...

NOTE: @INC est le tableau dans lequel Perl stocke tous les chemin des librairies qu'il connait. Pourquoi donc ne pas ajouter les tients de chemins puisque c'est un coportement par défaut ?

[Jedai]

Parce que "use lib" est l'interface normalisé pour ajouter un chemin à @INC, et que donc il vaut mieux l'utiliser qu'un push sur @INC.
Et s'il veut pouvoir utiliser son $IP dans ses scripts, il faut la déclarer avec un "our" pas un "my", de plus avec ta méthode, il sera obligé de qualifier complètement $env_perl::IP, alors qu'il pourrait employer un "use" et profiter du système d'export de variable de Perl pour s'éviter ces efforts.
Enfin peut-être qu'un vrai fichier de configuration serait plus adapté, non ? C'est très facile à faire avec par exemple App::Config.

--
Jedaï

[Jeh]

Parce que "use lib" est l'interface normalisé pour ajouter un chemin à @INC, et que donc il vaut mieux l'utiliser qu'un push sur @INC.
Et s'il veut pouvoir utiliser son $IP dans ses scripts, il faut la déclarer avec un "our" pas un "my", de plus avec ta méthode, il sera obligé de qualifier complètement $env_perl::IP, alors qu'il pourrait employer un "use" et profiter du système d'export de variable de Perl pour s'éviter ces efforts.
Enfin peut-être qu'un vrai fichier de configuration serait plus adapté, non ? C'est très facile à faire avec par exemple App::Config.

--
Jedaï

Avec ma méthode, tu n'es pas obligé de qualifier complètement $env_perl::IP, il suffit de la déclarer comme ceci dans le script après le require :

Code :

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

1
2
 
use vars qw ($IP);

Pour la suite, je ne suis plus...Suis pas encore un crack de Perl...
Je ne connaissais pas App::Config, ça a l'air pas mal du tout !
Bref encore un preuve que chacun peut faire comme il l'entend avec Perl.

[Batou]

salut jeh, salut jedai,

merci pour vos reponses !

Je regarde de plus pres ce qu'est App::Config et je reviens apres ceci. Je vais chercher sur ASPN/Activeperl, vu que mon environnement est windows.

merci encore et a plus
batou