Fichier de conf variable

Version imprimable

19/03/2007, 17h44
tyx

Fichier de conf variable
Bien le bonjour,

A titre exceptionnel, j'ai remis les mains dans ce bon vieux perl que je n'avais que survolé à chaque utilisation.
Et me voilà confronté à un souci d'organisation qui m'embête.

Mon script a un paramètre country et doit inclure un fichier de conf différent selon la valeur de ce dernier. (ahh la mondialisation)

j'ai fait quelques recherches sur ces forums, et à chaque question sur le require pour un fichier de conf, on parle de package.
Le souci c'est qu'un package c'est loin d'être "facile" d'utilisation pour le commun des mortels et les fichiers de conf seront modifiés par des personnes lambas, habitué à des fichiers classiques
Code:

1 2 $var = 'value'
N'est-il donc pas possible de déclarer des variables dans des fichiers externes et demander à notre fichier principale de les utilisers comme tels?
Etant en environnement de production, il va de soi que l'ajout de module n'est pas pensable, je me tourne donc vers vous pour une solution peut-être pas propre mais qui fonctionne.

Merci.

Heu tes user il entre la valeur eux-meme ?

si tu connais les valeurs bah pas de soucie;

Code:

1
2
3
4
my %conf = (
    valeur => fichier,
    ....
       );

vue que c'est un fichier de configuration je te conseille d'utiliser XML

ont peut faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl -w
use strict;
use diagnostics;
use XML::Simple;
 
my $valeur = $ARGV[0];
 
my %conf = (
    1 => '1.xml',
    2 => '2.xml'
);
 
my $country = undef; # le undef sert a rien c'est juste pour le fun 8-) 
 
if ( exists $conf{$valeur} )
{
   my $p = new XML::Simple;
   $country = $p->XMLin($conf{$valeur});
}
 else
{
   print "Erreur\n";
}

ou avec require :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl -w
use strict;
use diagnostics;
use XML::Simple;
 
my $valeur = $ARGV[0];
 
my %conf = (
    1 => 'module::toto',
    2 => 'module::toto1'
);
 
my $country = undef;
 
if ( exists $conf{$valeur} )
{
   require $conf{$valeur};
   $country = new $conf{$valeur}; # par exemple
}
 else
{
   print "Erreur\n";
}

J'ai testé aucun des deux codes c'est juste des idées

19/03/2007, 18h15
Jedai

Citation:

Envoyé par tyx

N'est-il donc pas possible de déclarer des variables dans des fichiers externes et demander à notre fichier principale de les utilisers comme tels?
Etant en environnement de production, il va de soi que l'ajout de module n'est pas pensable, je me tourne donc vers vous pour une solution peut-être pas propre mais qui fonctionne.

Merci.

Je trouve qu'interdire l'ajout de modules du CPAN en environnement de production n'est pas super, mais selon tes besoins, tu peux te contenter d'un truc ultra-simple style "identifiant = valeur" et mettre ça dans un hash

--
Jedaï
19/03/2007, 18h47
tyx

merci de vos réponses.

Est-ce que le module XML::Simple est un module de série?

Car si ce n'est pas le cas, comme je l'ai je n'ai pas la possibilité de le rajouter. Ce n'est pas moi qui pose le véto mais bien les hautes instances, et je n'ai pas le temps de me battre pour ça. Que se soit une décision contestable, je le conçois mais ainsi va la vie ^^

Je testerais ça quand même demain.

Pour Jedai, ton idée me semble bien, mais la question de la récupération se passerait comment?
Un fichier de conf, que j'ouvrirais et traiterais comme n'importe quel fichier pour y récupérer ce que je veux?

Citation:

Envoyé par tyx

Pour Jedai, ton idée me semble bien, mais la question de la récupération se passerait comment?
Un fichier de conf, que j'ouvrirais et traiterais comme n'importe quel fichier pour y récupérer ce que je veux?

Exactement !

un fichier du genre
Code:

1 2 3 propriete1=valeur1 propriete2=valeur2
Et le code pour le lire:
Code:

1 2 3 4 5 6 7 8 9 10 11 my $propertyfile = 'appli.properties'; my %hash = (); open(my $input, '<', $propertyfile) || die("impossible d'ouvrir $propertyfile en lecture\n"); while (<$input>) { my ($name, $value) = split(/=/); $hash{$name} = $value; } close($input);

20/03/2007, 10h18
tyx

Merci à vous 2, le module XML n'étant pas installé, je vais opter pour la solution de Jedai qui me convient parfaitement.

edit: au cas où, a noter qu'il vaut mieux chomp le flux avant de l'insérer dans le hash histoire de pas avoir les retours à la ligne dans les valeurs ^^

Certes, le chomp est sympathique ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
my $propertyfile = 'appli.properties';
my %hash = ();
 
open(my $input, '<', $propertyfile) || die("impossible d'ouvrir $propertyfile en lecture\n");
while (<$input>)
{
    chomp();
    my ($name, $value) = split(/=/);
    $hash{$name} = $value;
}
close($input);