Hash de array affichage

Bonjour,

J'ai deux hash (les deux premiers) que j'ai fusionné avec le module "Hash::Merge" pour obtenir le 3è.

je souhaite afficher la clé et les valeurs associés mais ca bug quand il n'y a qu'une valeur et non plus. (voir la fin du message)

Quelqu'un connait il la raison ?

Merci.
Code:

1 2 3 4 print Dumper \%merged; foreach my $cle ( keys %merged ) { print "$cle @{ $merged{$cle} }\n"; }
Citation:

$VAR1 = {
'e055.3dac.9560' => '10.2.99.2',
'0005.3505.755c' => '10.2.99.7',
'7c2f.8082.0edb' => '10.2.199.1',
'2c3e.cf86.da71' => '10.2.199.3',
'6c99.8984.0610' => '10.2.199.2',
'3037.a605.a242' => '10.2.199.126',
'3037.a605.a241' => '10.2.99.252',
'a0e0.aff0.fec0' => '10.2.199.121',
'0000.5e00.015b' => '10.2.99.254',
'28d2.4441.d513' => '10.2.99.13',
'0025.15ba.3320' => '10.2.99.238',
'0007.4d3c.caf6' => '10.2.99.170',
'3037.a605.a243' => '10.2.199.254',
'0012.efe1.d634' => '10.2.99.237'
};

Citation:

$VAR1 = {
'a0e0.aff0.fec0' => 'Fa0/5',
'0000.5e00.015b' => 'Fa0/3',
'0026.7377.5cf9' => 'Fa0/13',
'0012.efe1.d634' => 'Fa0/3',
'28d2.4441.d513' => 'Fa0/9',
'0025.15ba.3320' => 'Fa0/4',
'7c2f.8082.0edb' => 'Fa0/7',
'e055.3dac.9560' => 'Fa0/10',
'0005.3505.755c' => 'Fa0/16',
'0003.ea07.f0a0' => 'Fa0/21',
'6c99.8984.0610' => 'Fa0/19'
};

Citation:

$VAR1 = {
'7c2f.8082.0edb' => [
'10.2.199.1',
'Fa0/7'
],
'0005.3505.755c' => [
'10.2.99.7',
'Fa0/16'
],
'3037.a605.a242' => '10.2.199.126',
'6c99.8984.0610' => [
'10.2.199.2',
'Fa0/19'
],
'3037.a605.a241' => '10.2.99.252',
'0012.efe1.d634' => [
'10.2.99.237',
'Fa0/3'
],
'0007.4d3c.caf6' => '10.2.99.170',
'0025.15ba.3320' => [
'10.2.99.238',
'Fa0/4'
],
'e055.3dac.9560' => [
'10.2.99.2',
'Fa0/10'
],
'0003.ea07.f0a0' => 'Fa0/21',
'2c3e.cf86.da71' => '10.2.199.3',
'a0e0.aff0.fec0' => [
'10.2.199.121',
'Fa0/5'
],
'0000.5e00.015b' => [
'10.2.99.254',
'Fa0/3'
],
'0026.7377.5cf9' => 'Fa0/13',
'3037.a605.a243' => '10.2.199.254',
'28d2.4441.d513' => [
'10.2.99.13',
'Fa0/9'
]
};

Citation:

7c2f.8082.0edb 10.2.199.1 Fa0/7
0005.3505.755c 10.2.99.7 Fa0/16
Can't use string ("10.2.199.126") as an ARRAY ref while "strict refs" in use at test.pl line 46.

Si tu observes les trois premiers éléments de %merge:
Code:

1 2 3 4 5 6 7 8 9 10 11 $VAR1 = { '7c2f.8082.0edb' => [ '10.2.199.1', 'Fa0/7' ], '0005.3505.755c' => [ '10.2.99.7', 'Fa0/16' ], '3037.a605.a242' => '10.2.199.126',
Tu vois que le troisième n'a pas la même structure: la valeur n'est pas un array ref mais un simple scalaire. Du coup, le déréférencement:
Code:

1 2 @{ $merged{$cle} }
ne fonctionne pas sur cet élément.

Il faut probablement tester si ta valeur dans ton hachage est un simple scalaire ou un array ref, et adapter ta syntaxe en conséquence.

Merci, pour l'indice

j'ai remplacé le bout de code

Code:

$table{$mac} = $ip;

par

Code:

$table{$mac} = [$ip];

et ca fonctionne :)

N'ayant pas vu le code dans lequel tu as fait ce changement, je ne peux commenter. Mais il est possible que ça suffise, effectivement.