Appel d'un script d'un dossier different

Ja cherche a utilisé mon script "menu.pm" dans tout mes fichiers perl de mon architecture,qui se trouvent dans different dossier!

Pour cela j'utilise :

Code:

---

require Menu;

---

mais evidement il me faut indiquer l'arborescence et j'aimerais avoir un chemin relatif par exemple "../menu.pm" et pas "c:/mondossier1/mondossier2/menu.pm"

j'ai lu pas mal de truc qui tourne autour de mon probleme mais jamais precisement pour un require(souvent pour use,avec utilisation d'un use lib) je cherche des solutions donc si vous en avez a partager, merci;)

"use" n'est de toute façon qu'un require encapsulé dans un bloc BEGIN (exécuté à la compilation du script) avec un appel à la méthode import() du module. "use lib" marche aussi bien pour les require que pour les use, puisqu'il modifie @INC dans un bloc BEGIN.

Fais :

Code:

---

1 2 3

use lib "le chemin de ton dossier qui contient Menu.pm"; require Menu;

---

--
Jedaï

euh... y'a un truc que je dois zappé la :? !

je n'arrive pas faire fonctionner cela!!

j'ai

Code:

---

1 2	use lib "c:/WebServer/cgi-bin/nemip/UserMgt/"; require Menu

---

et toujours pareil il me dit :

Citation:

---

[Mon Jul 10 12:56:12 2006] [error] [client 127.0.0.1] Can't locate Menu.pm in @INC (@INC contains: c:/Perl/lib c:/Perl/site/lib .) at c:\\WEBSER~1\\cgi-bin\\nemip\\usermgt\\USER_G~1\\CREATE~1.PL line 52.\n

---

use lib "c:/WebServer/cgi-bin/nemip/UserMgt/";
use Menu;

En faisant attention d'avoir un 1; à la fin de ton Menu.pm

essaye ça :

Code:

---

1 2 3

use lib 'c:\WebServer\cgi-bin\nemip\UserMgt\\'; use Menu qw(:ALL);

---

rien a faire toujours le meme probleme... et de toutes facon je crois me rappeler qu'un use dans mon cas ne foncitonnerais pas exactement comme je le voudrais donc le require est de rigueur pour mon cas ;) ! mais merci de votre aide au pire si je ne trouve pas de solution je mettrais mon fichier dans le dossier d'install de perl! mais avant cette ultime solution je compte bien en trouver une autre :P

Essaie de mettre ça à la place de ton "use lib" :

Code:

---

1 2	BEGIN { unshift(@INC, 'c:/WebServer/cgi-bin/nemip/UserMgt') }

---

--
Jedaï

Hum:? toujours pareil !

de mon coté j'ai tenté d'autres choses mais toujours sans succès!

Pourquoi ne pas mettre ton Menu.pm dans Perl/lib par exemple (eventuellement avec une hiérarchie plus précise : MyCGI::Menu par exemple) ? Je pense que le problème vient de mesures de sécurité du serveur qui figent @INC probablement.

--
Jedaï

c'est finalement la solution pour laquelle j'ai opté meme si elle ne me convient pas completement!

en tout cas merci a vous;)