tableau dans variable

Version imprimable

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:

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:

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

j'ai bien

Citation:

$VAR1 = '301';

en retour

mais lorsque j'appelle

Code:

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

j'obtiens:

Citation:

$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,

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

Code:

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:

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

29/06/2012, 14h41
Dra_Gun

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