Discussion :

[Dra_Gun]

Bonjour,

J'essaye d'accéder à une variable qui contient une liste. Mais ca ne me renvoie que le premier item de la liste..

pour des raisons de simplicité, j'ai créé un module qui contient toutes mes variables. j'appelle ce module dans tous les scripts qui ont besoin de ces variables "globales"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
our $peer = {
'isp1'    => {
    'router'   => '300',
    'peer_th2' => ('ip1','ip2'),
    'peer_cbv' => ('ip3','ip4'),
},
'isp2'     => {
    'router'   => '301',
    'peer_th2' => ('ip5','ip6','ip7'),
    'peer_cbv' => ('ip8','ip9','ip10'),
},
}

dans le script, lorsque j'appelle ainsi la variable:

Code :

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

print Dumper ($variable_bas::peer->{$isp}->{'router'});

j'ai bien

$VAR1 = '301';

en retour

mais lorsque j'appelle

Code :

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

print Dumper ($variable_bas::peer->{$isp}->{'peer_th2'});

j'obtiens:

$VAR1 = 'ip1';

le but étant de boucler sur le nombre d'adresse ip afin de générer une conf..

comment faire pour récupérer toutes les valeurs de la liste?

Merci d'avance,

[lennelei]

Ptet qu'avec des [ ] au lieu des ( ) ça marcherait mieux ?

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
use Data::Dumper;
 
our $peer = {
'isp1'    => {
    'router'   => '300',
    'peer_th2' => [ 'ip1','ip2' ],
    'peer_cbv' => [ 'ip3','ip4' ],
},
'isp2'     => {
    'router'   => '301',
    'peer_th2' => [ 'ip5','ip6','ip7' ],
    'peer_cbv' => [ 'ip8','ip9','ip10' ],
},
};
 
print Dumper ($peer->{isp1}->{'peer_th2'});

Edit : du coup, tu peux y accéder avec :

Code :

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

1
2
3
foreach (@{$peer->{isp1}->{'peer_th2'}}) {
	print "$_\n";
}

[Dra_Gun]

j'avais essayé ça aussi, mais j'avais juste zappé les { } du @...
merci en tout cas