Discussion :

[developpeur99]

Bonjour,


Je me rends compte que dans certains programmes j'utilise toujours les mêmes variables, du style AdresseEmail, Nom de programme exécutable...

Je pense qu'il est peut être interessant de mettre ces variables dans un seul et même fichier et de l'appeler en entête de chaque programme.

Pouvez-vous m'indiquer la bonne méthode ?
J'ai pour l'instant construit un module dans lequel j'y met ce qui m'interresse pour faire cela.
Il y a t'il une autre solution au s'agit il de la bonne méthode ???

Merci de votre retour.

Code :

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

1
2
3
4
5
6
7
8
9
10
package essai;     # Le nom du package et du fichier .pm
use Exporter;      # appel au module gérant la visibilité
ISA=qw(Exporter); # hérite d'Exporter (non traité ici,
                   # voir la section sur les objets)
our @EXPORT = qw(					
   Fonc1
   Fonc2
   Fonc4
   $Var
);

[developpeur99]

Bonjour,

Si quelqu'un a une bonne idée pour la gestion des programmes ?
Merci

[Arioch]

Bonjour,

Si quelqu'un a une bonne idée pour la gestion des programmes ?
Merci

Perso, j'utilise 2 méthodes :

1) ou bien j'ai un fichier .conf qui contient divers paramètres. Une ligne contient un mot clé, suivi d'un caractère de type séparateur (@, |, etc), suivi de la valeur à rattacher au mot clé. Une fonction issue d'un package se charge de lire ce fichier .conf et de tout charger dans un hash (key = mot clé, value = valeur à rattacher au mot clé).

2) ou bien je fais comme toi en stockant mes variables et fonctions utilisées dans plusieurs programmes différents dans un package.

[developpeur99]

Salut,

Merci pour ta réponse.

J'avais bien pensé à cela, un fichier conf, avec un style
<Nom de ma variable> = <Valeur de la VALEUR>
Mais je n'avais pas pensé au Hash, qui est une superbonne idée.
Mais je trouve cela plus lourd, car il faut aussi créer une fonction qui sera utilisable par tout les programmes et donc stockée elle aussi quequepart, pour éviter de la redéfinir x fois.


J'ai essayé de faire une fonction perl Externe qui me semblait "plus simple que le package", et qui s'appelle via use ou require mais je n'arrive pas a récupérer les valeurs de mes variables. Et je n'ai pas trouvé d'exemples pour faire cela.
Le package fonctionne donc je crois que je vais l'utiliser.

Mais comme je ne suis pas un pro, mais j'apprends et surtout je pense que j'essaye de coder le plus proprement possible.

Merci à toi pour m'avoir donné ta méthode
Bonne journée
A une prochaine

[Arioch]

Mais je trouve cela plus lourd, car il faut aussi créer une fonction qui sera utilisable par tout les programmes et donc stockée elle aussi quequepart, pour éviter de la redéfinir x fois.

Pas forcément plus lourd...

Si tu dois créer une fonction pour lire le fichier .conf et que tu dois externaliser cette fonction dans un package, je ne vois rien de lourd là-dedans.

C'est juste un "use machin" de plus

J'ai fais un gros programme à titre personnel, lequel a besoin d'un fichier .conf de ce genre pour diverses raisons (chemins d'accès à divers dossiers, nom de la base de données, etc) et j'ai une trentaine de scripts Perl qui ont tous besoin de ce fichier .conf.

Tous mes scripts commencent par :

Code :

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

1
2
3
4
#!/usr/bin/perl
use strict;
use warnings;
use mon_package;

Rien de bien lourdingue là-dedans

[dev_KooK]

Tu peux utiliser le module Config::General qui contient déjà la fonction voulu.