Discussion :

[martijan]

bonjour la liste,

voila, j'ai fait plusieurs petits programme qui s'imbriquent. Par exemple lorsque je demande une identification a un programme je lance un programme par :

Code :

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

require motdepasse;

jusque là pas de soucis. Par contre lorsque le programme exterieur motdepasse est terminé, je n'arrive pas à avoir la suite du programme principal.

j'ai essayé avec

Code :

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

die

ou

Code :

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

exit

mais en vain.

peut-on m'aider ?
d'avance merci.

[nyal]

Cela est bizarre. Il faudrait voir a quoi ressemble ton .pm.

Car il revient dans le programme principal une fois qu'il a fini l'execution du .pm.

[Jedai]

Tu as bien mis

Code :

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

1
2
 
1;

à la fin de ton *.pm ? :

[martijan]

en fait ce n'est pas un .pm c'est un programme comme un autre !!!
qui commence par :

Code :

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

#!/usr/bin/perl -w

et la fin se fait comme tout autre programme. Ne suis-je pas dans la bonne voie ?
si ce n'est toujours pas clair je transmetterai le code complet.

[Arioch]

En laissant le fork() de côté, tu as 3 méthodes pour appeler un programme externe au tien :

- soit tu fais un appel system :

Code :

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

system ("Mon_Prog");

Ici, ton programme principal reste en attente et ne fais plus rien, tant que le programme externe ne lui a pas rendu la main.

- soit tu fais un exec :

Code :

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

exec ("Mon_Prog");

Ici, ton programme principal s'arrête et laisse la main au prog externe.

- soit tu veux récupérer dans une variable ce que le prog externe a affiché sur STDOUT (sortie standard) :

Code :

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

$retour = `Mon_Prog`;

Il faut entourer ton prog externe ici par des anti-quotes (touche 7 du clavier alpha). C'est très utile par exemple si ton prog externe doit retourner un code de retour de fonctionnement, genre 1 si tout a bien marché ou 0 sinon. Dans mon exemple, $retour contient tout ce que ton prog externe a affiché en sortie standard.

Si ton prog externe ne peut pas être utilisé avec l'une de ces 3 méthodes, je te conseille fortement de le transformer en package, ce que d'ailleurs tout le monde avait supposé vues les réponses ! Tu n'as juste qu'à transformer en fonction(s) tout ce que fais ton programme externe, et il te suffira de le déclarer dans ton prog principale via un use Mon_Programme.

[martijan]

OK je vais faire l'essai de suite.

il est vrai que j'aurai pu transformer ce prog en package, mais comme je debute il faut d'abord que je me familiarise un peu plus avec les packages.
je vous tiens au courant et merci.

[martijan]

je pense ne pas avoir le choix de passer par un package !!!

avec systeme il ne passe pas les variables d'un programme à l'autre et exec() il n'aime pas !!

la derniere solution n'est semble-t-il pas la bonne pour mon cas non plus.

je vais m'armer de courage. rester attentif les messages vont fuser....

[Arioch]

Au contraire ! si ton programme principal doit recevoir des variables ou données de ton prog externe, là c'est tout bon pour transformer ce dernier en package

[Arioch]

Un tout piti exemple :

Un package contenant une variable qui doit être utilisée dans un prog utilisant ce package :

Code :

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

1
2
3
4
5
6
7
8
9
package PkgToto;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($Toto);
 
$Toto = "La tete a";
 
1;

Et voici un prog principal utilisant ce package :

Code :

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

1
2
3
use PkgToto;
print "$Toto";              # correct mais se réfère à $Pkg::Toto
print "$PkgToto::Toto";    # vrai nom de la variable externe $Toto

[martijan]

OK merci cela m'éclair beaucoup mais pourrais-tu rapidement un peu m'eclairer sur

Code :

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

use vars .....

????

[Arioch]

ces lignes ci-dessous, je les mets toujours dans mes packages :

use vars qw(@ISA @EXPORT); je sais plus pq je le mets, sorry
use Exporter; contient une méthode toute faite pour l'import de packages dans des programmes
@ISA = qw(Exporter);
@EXPORT = qw($Toto); ici, il faut insérer les variables et fonctions qui seront accessibles dans le programme utilisant le package

[martijan]

OK d'accord mais de deux choses, l'une :

1. Pourquoi ne dois-je pas déclarer mes variables avec

Code :

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

my

2. Pourquoi ne pas démarrer mon .Pl avec

Code :

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

sub BEGIN {}

????

[martijan]

un peu d'aide encore...

petit rappel :

je lance un programme quelconque, celui va lancer un programme de gestion de compte. Celui doit verifier si le user est enregistrer et si son compte n'est pas verrouillé parce qu'il a entré 5 fois un mauvais Mdp. un fois cette verif faite celui doit lancer un programme de connection (demande de mot de passe). le mot de passe est demande 5 fois avant que celui ne bloque le compte (inscription d'un fichier .log).

je desire proceder de cette façon car dans chaque programme futur que je vais faire je voudrais faire appel au meme proceder (gestion compte + motdepasse).
A savoir que le mot de passe de chaque appli est different.
Au préalable j'ai ecris un script qui permet de définir sont mdp pour une appli précise (inscription d'un fichier $user$appli.pwd).

quelqu'un aurait-il un exemple de structure pour réaliser ce projet ?
d'avance merci.

[Arioch]

clair que ta procédure gestion compte + mots de passe doit être externalisée ---> zouuuu, dans un package tout ça !

faire une structure de ton taf lorsqu'on a pas le cas concret sous le pif, c'est pas évident mais crois-moi, ça va pas être très compliqué à faire.

en ce qui me concerne, j'ai pas de structure toute faite à te donner.

Jedaï ? Alors jeune Jedaï, viens par ici, on a besoin de ta Force !!!

[martijan]

voila je viens de faire les packages.

au premier appel de :

Code :

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

use mdp.pl;

je recois un erreur syntax error !!!!

[Arioch]

voila je viens de faire les packages.

au premier appel de :

Code :

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

use mdp.pl;

je recois un erreur syntax error !!!!

Alors, le nom d'un package a comme extension .pm et non .pl

Ensuite, dans ton programme principal, il faut déclarer l'utilisation de ce package par use package;

Dans ton cas, c'est use mdp;

[martijan]

mais il faut que je mette le .pm dans un répertoire système spéciale ?
mais , je ne suis pas administrateur !

[Arioch]

mais il faut que je mette le .pm dans un répertoire système spéciale ?
mais , je ne suis pas administrateur !

Pas obligé, si tu le mets dans le même dossier que ton prog .pl, aucun soucis

[Arioch]

voila je viens de faire les packages.

Hum, quand tu dis que tu as fait les packages ... Question : as-tu laissé tes progs .pl tels quels et juste transformés en .pm ???

Je dis ça, parce qu'en principe, un package sert à 90 % du temps pour y stocker des fonctions, pas vraiment des programmes à part entière.

En utilisant un package, si le-dit package contient juste des fonctions, ces fonctions deviennent accessibles à tout moment dans le programme principal. Mais si le-dit package contient du code pur (pas de fonctions, que du code), il faut savoir que celui-ci va être exécuté intégralement, dès que le compilo aura topé le use package; dans le programme principal.

Si c'est ce que tu souhaites, c'est nickel mais sinon, fallait te prévenir. Je me suis fait surprendre une fois, ça m'a calmé

[martijan]

tu as raison c'est le cas, ce n'est pas ce que je voulais.

mais bon. si tu veux on reprendra cette conversation Lundi car je suis en W-end dans 5 minutes.

en tous cas merci pour ton aide précieuse...