Discussion :

[SYL666]

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 :

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

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

script.pl:

Code :

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

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!

[Arioch]

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 :

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

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 :

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

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

[pospos]

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

[SYL666]

Code :

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

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

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!

[Olivier.p]

*Résurection d'un post*

Super merci