Discussion :

[crochepatte]

Bonjour,

Voila j'ai une erreur assez bizarre ...

Je suis actuellement en train de develloper un application web à l'aide de cgi Perl.
Je possede une page html qui envoie vers un cgi A.
Ce cgi se charge de lancer un script perl B et renvoie sur un cgi C qui permet d'afficher les resultats de B.

J'apel mon script B à l'aide de la fonction open avec le pipe...

Code :

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

1
2
 
	open (CMD, "perl B.pl $param |") or return 0;

Mon script perl B fais apel à d'autre module perl que j'ai implémenté.
Helas, lorsque je charge un module le script ne se lance pas correctement...
Pourtant, si je tape la meme commande via une console, le script s'execute bien...Cela montre bien que le script est correct... Pourtant lorque de l'inculsion de ce module, en passant pas la commande open...le script ne semble pas s'executer!!!

Je ne sais pas pourquoi le chargement de ce module ne marche pas, surtout que j'en charge d'autres également implémenté par mes soins...

Resultats, pour palier a ce probleme, j'ai inserer tout le code du module dans mon script perl B... ce qui est loin d'etre beau ni tre modulaire!!!

Si quelqu'un me comprend... et qu'il voit ou peut etre l'erreur...

Merci beaucoup

[tiboo]

salut,

bon je suis pas sur d'avoir tout compris mais sit tu veux executer un perl depuis un autre script perl, OPEN ne doit pas etre la bonne commande car je pense que elle doit charger le fichier dans le descripteur CMD et non l'executer par le sytème comme toi tu le voudrais. Je pense que tu devrais utuliser "system" car c'est ce que tu veux, que le système execute ton code.
J'esaierai un truc comme ça :

Code :

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

1
2
3
4
5
 
# ta commande
$cmd="perl B.pl $param";
# execution du code par le système
$retour = 0xffff & system($cmd);

Je me trompe peut être car c'est peut être different pour une appli WEB.

[crochepatte]

Je ne pense pas que ce doit etre cela le probleme, avec open cela marche tout aussi bien...c'est juste une alternative à la commande system... De plus je suis obligé d'utiliser open pour pouvoir executer mon script independemment de mon cgi qui le lance...

Mais c sympa d'avoir repondu surtout que mon post n'est pas tres clair!!!

[Woufeil]

Effectivement, open est tout à fait approprié oiur l'exécution de commande, l permet de faire un pipe si l'on rajoute un | au début (pipe en écriture) ou à la fin (pipe en lecture)...

Ppour tpn problème crochepatte, essai de remplacer use par require, cela peut venir de là...

[tiboo]

desolé je savais pas du tout que OPEN pouvait permettre d'executer un script. J'aurai appris qqchose

[crochepatte]

Merci pour vos reponses.

[Jedai]

Si tu utilises des modules que tu as créé, vérifie qu'ils sont dans @INC dans un chemin absolu (typiquement pas dans .) car le répertoire courant lorsque tu lances ton script par le open() n'est probablement pas le bon.

--
Jedaï

[crochepatte]

oui je savais que cela pouvait poser probleme, donc j'ai mis les modules utilisé dans meme dossier que le script que je lance...parce que je ne sais pas comment configurer @INC...

[Jedai]

oui je savais que cela pouvait poser probleme, donc j'ai mis les modules utilisé dans meme dossier que le script que je lance...parce que je ne sais pas comment configurer @INC...

C'est bien ce que je pensais... Les modules sont dans le dossier où se trouve ton script, or ce dossier n'est pas dans @INC (qui est la liste des dossiers où Perl cherche un module qu'on lui demande de charger). Si ton script marche habituellement lorsque tu le lances en ligne de commande, c'est parce que tu le lance à partir du dossier où il se trouve, et que "." (le dossier courant) est lui dans @INC. Lorsque tu le lances depuis un autre dossier (comme par exemple dans ton cas si l'autre script n'est pas dans le même dossier), "." n'est pas le bon dossier, donc Perl ne trouve pas tes modules.
Il faut mettre tes modules dans un autre emplacement, soit un chemin absolu (sans doute à éviter), soit dans un chemin relatif à une variable d'environnement qui t'es accessible. Et rajouter ce dossier dans @INC par l'intermédiaire du pragma lib (perldoc lib).

--
Jedaï

[crochepatte]

Merci pour toutes ces informations...je comprends mieu mon probleme...il est vrai que le cgi qui lance le programme est dans un dossier ou le module n'est pas...
Merci encore