Discussion :

[michel_mobivillage]

Bonjour,
je tente d'utiliser AppConfig pour lire un fichier de conf, le problème c'est que dans les variables j'ai toujours '1', qu'est ce qui ne tourne pas rond?
le fichier de conf:

test
debug
niveau = 4
repertoire = /tmp
repertoire = /var
repertoire = /home

Le script .pl:

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
#!/usr/bin/perl -w
use strict;
use File::stat;
use AppConfig qw(:expand :argcount);
# CONFIG
 my $config = AppConfig->new(
'test', 'debug',
'niveau' => ARGCOUNT => 1 ,
'repertoire' => ARGCOUNT => ARGCOUNT_LIST);						
 
$config->file('test.conf');
print "test : ", $config->test(), "\n";
print "debug : ", $config->debug(), "\n";
print "niveau : ", $config->niveau(), "\n";
my $rep = $config->repertoire();
foreach my $in (@$rep){
	print "in ",$in,"\n";
}
print "\n\n";

Ce que j'obtient:

test : 1
debug : 1
niveau : 1

merci d'avance pour vos retour

[michel_mobivillage]

Bon en fait j'ai trouvé tout seul comme un grand...
bon enf ait grace a un topic de bobinoo.
La solution est qu'il faut mettre des accolades :

Code :

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

1
2
3
4
5
 my $config = AppConfig->new(
'test', 'debug',
'niveau' => { ARGCOUNT => 1},
'repertoire' => { ARGCOUNT => ARGCOUNT_LIST}
);

[MarneusCalgarXP]

Pense à utiliser la balise code, ce sera plus lisible ! mais sinon, c'est cool d'avoir posté la solution