ajouter un config file dans a un script

Bonjour,
Je cherche a jouter un fichier de config a un script qui commence a devenir assez gros.
Le probleme, c'est que sur le net, je n'arrive a trouver que des infos sur la config de perl en elle meme...

bref, voila le genre d'algo auquel je pensais :
utiliser un hash qui aurait pour cle un texte representant un nom de variable et en donnee un pointeur sur ladite variable. ainsi, il est facile d'ajouter une variable configuree : il suffit de l'inscrire dans le hash.
config.ini :

Code:

---

1 2	# ceci est un commentaire maxlen: 40 #longueur max

---

script.pl:

Code:

---

1 2 3 4 5 6 7 8

open(CONFIG, 'config.ini'); foreach (<CONFIG>) { ($conf, undef) = split('#'); if ($conf) { ($identifiant, $valeur) = split(':', chomp($conf)); $hash{$identifiant} = $valeur; } }

---

Bon c'est sur, c'est du speudo code, ca marchera pas du premier coup, mais voila l'idee (j'ai oublie comment on faisait des pointeurs, faudra que je checke ca).

Maintenant, les questions :
- deja, avant tout : existe t il un module perl pour nous faciliter la tache?
- est ce que je suis sur la bonne piste?
- que pourrais-je ameliorer? ajouter? optimiser?

Merci!

Bonjour,

pour mes besoins persos, j'ai un fichier .conf contenant la liste de répertoires qui permettent à mes programmes d'accéder aux différents fichiers dont ils ont besoin.

Mon fichier .conf ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

# Répertoire racine HOME;/home/arioch/Toto   # Programmes binaires BIN;/home/arioch/Toto/bin   # Fichiers de configuration CONF;/home/arioch/Toto/conf   # Fichiers de données DATA;/home/arioch/Toto/data   etc etc.

---

Et voici le code (fonction) qui me permet de retrouver toutes les données de mon fichier .conf :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl -w   use strict;   my %DirConf;   open(CONF, "fichierconf") or die(" Chargement des répertoires erreur\n$!\n"); while(<CONF>) { chomp(); if ($_ && $_ !~ /^#/) # on ne récupère que les lignes ne commençant pas par # { if ($_ =~ /^(.+);(.+)$/) { $DirConf{$1} = $2; } } } close(CONF);   print $DirConf{HOME}; # affiche /home/arioch/Toto

---

il en existe pleins !
regarde sur search.cpan.org (cherche "config")

perso j'aime bien utiliser yaml pour faire ca.
Ca permet de serialiser directement n'importe quelle structure de donnée, quelque soit sa complexité, et ca reste lisible et editable à la main, et meme par d'autres languages

Code:

---

firefox -> bookmarks -> add ('Perl', 'search.cpan.org');

---

:mouarf:
yeah! c'est cool!

Merci Arioch... mais je crois que pospos m'a trouve ce que je cherchais depuis que j'ai commence le Perl.

Je crois que je vais plutot m'orienter vers Config:tiny, std ou alors simple... je sais pas trop encore... mais, on qui dirait : 'Keep it simple!'

Un grand merci a vous 2!

*Résurection d'un post*

Super merci :ccool:

:recherch: :mouarf: