Discussion :

[bobinoo]

Je sais que ce topic a déjà été posté mais j'aimerai lire les valeurs d'un fichier de configuration de cette forme :

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
23
24
global_defs {
   notification_email {
     support@tagada.com
   }
   notification_email_from tagada@tagada.com
   smtp_server 192.168.1.1
   smtp_connect_timeout 30
   lvs_id LVS_DEVEL
}
 
vrrp_instance VI_1 {
    state MASTER
    interface eth0
    virtual_router_id 51
    priority 100
    advert_int 1
    authentication {
        auth_type PASS
        auth_pass 1111
    }
    virtual_ipaddress {
        192.168.1.150
    }
}

J'ai essayé avec AppConfig mais je n'arrive a récupérer aucune variable. J'ai essayé avec le code suivant en rajoutant une variable tagada à la dernière ligne en dehors de toute accolades :

Code :

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

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl -w
use strict;
use AppConfig qw(:expand :argcount);
 
my $config = AppConfig->new(tagada => ARGCOUNT => ARGCOUNT_ONE);
 
$config->file('/etc/tagada/tagada.conf');
print "tagada : ".$config->tagada();

Ca me retourne 1 pour la valeur tagada, je n'arrive pas à trouvé la bonne valeur de ARGCOUNT... Une idée ?

Merci bien.

[bobinoo]

Bon ben tant pis

[fsapet]

salut

desole mais je ne connais pas le module AppConfig et je n'ai pas trop le temps de me pencher la dessus

courage

[bobinoo]

C bon, j'ai trouvé, avec un coup de bol je pense !

fallait mettre des accolades comme ça :

Code :

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

my $config = AppConfig->new('tagada' => {ARGCOUNT => 1},'blabli' => {ARGCOUNT => 1});