Discussion :

[Billette]

Bonjour

Je souhaite depuis un programme principal, appeler des sous programmes externes.
Rien de plus simple que d'utiliser : use lib nomlib
Seulement je ne souhaite pas, pour des question de portabilité, mettre le chemin d'accès à la bibliotheque en dur dans mon PGM.
Ma première idée etait de passer par une variable d'environnement :
use lib nomvariable
mais celà ne fonctionne pas et j'ai un beau message d'erreur me disant que le pgm n'est pas trouvé dans @INC.
Comment puis-je ajouter cette librairie à @INC ?

Merci de votre aide
Isabelle

[Arioch]

Bonjour

Je souhaite depuis un programme principal, appeler des sous programmes externes.
Rien de plus simple que d'utiliser : use lib nomlib
Seulement je ne souhaite pas, pour des question de portabilité, mettre le chemin d'accès à la bibliotheque en dur dans mon PGM.
Ma première idée etait de passer par une variable d'environnement :
use lib nomvariable
mais celà ne fonctionne pas et j'ai un beau message d'erreur me disant que le pgm n'est pas trouvé dans @INC.
Comment puis-je ajouter cette librairie à @INC ?

Merci de votre aide
Isabelle

Bonjour,

si j'ai bien compris, tu as des fonctions externes regroupées dans un package (.pm) ?

Pour tes raisons de portabilité justement, où comptes-tu déposer ce package par rapport au programme, une fois celui-ci déployé ?

Parce que si tu ne peux pas :
- déployer le script Perl + le package .pm dans le même répertoire
- déclarer en dur le chemin vers le package dans le script

Il ne te reste plus que 2 solutions :
- ou bien rajouter le chemin vers le package dans le path de ta machine. Ainsi, en faisant un simple "use mon_package", Perl cherchera dans tous les path déclarés et finira bien par le trouver.
- ou bien rajouter toutes les fonctions du package dans ton script, ce que tu ne souhaites pas je suppose.

[pospos]

Pour trouvé un module dans un chemin ajouté "à la main" à @INC il faut le faire avant que les modules en question soient chargés. Hors les "use" sont executée avant l'execution d'un script (ou qu'ils soient dans le code). donc deux possibilitées s'offrent à toi:
- mettre ton push @INC dans un bloque BEGIN
- faire un "require" de ton module au lieu d'un "use", et ce apres le push @INC

[Arioch]

Pour trouvé un module dans un chemin ajouté "à la main" à @INC il faut le faire avant que les modules en question soient chargés. Hors les "use" sont executée avant l'execution d'un script (ou qu'ils soient dans le code). donc deux possibilitées s'offrent à toi:
- mettre ton push @INC dans un bloque BEGIN
- faire un "require" de ton module au lieu d'un "use", et ce apres le push @INC

Oui mais elle ne souhaite justement pas écrire en dur le chemin vers le package dans son script Perl

Or, ton bloc BEGIN, il se trouve dans le script

[pospos]

ton bloc BEGIN peut lire un argument passé en ligne de commande ou une variable d'environnement, et d'ailleurs le pragma lib le peut aussi.

[Jedai]

Ma première idée etait de passer par une variable d'environnement :
use lib nomvariable
mais celà ne fonctionne pas et j'ai un beau message d'erreur me disant que le pgm n'est pas trouvé dans @INC.
Comment puis-je ajouter cette librairie à @INC ?

Merci de votre aide
Isabelle

Cette forme devrait marcher.
N'oublie pas qu'il faut mettre cette ligne avant l'appel du module en question et que les variables environnementales du shell sont accessible en Perl par l'intermédiaire du hash %ENV.

--
Jedaï

[Billette]

Bonjour

J'ai résolu le problème avec l'utilisation de
use lib ($ENV{MAVARIABLE});
require("nompgm.pm");


Merci beaucoup
Isabelle