Problème de hash

Hello,

je récupère des données avec le module XML::Simple qui me crée une structure contenant mes données. Jusque là tout fonctionne, par contre quand j'ai un tag XML vide je me retrouve avec la structure suivante:

Avec données:

Code:

---

1 2 3

'Description' => [ "Test" ]

---

Sans données:

Code:

---

1 2 3

'Description' => [ {} ]

---

Je cherche à lire le contenu avec decode_entities($strDocument->{Description}->[0]) mais quand le champ est vide il me retourne quelque chose du genre HASH(0x1f0e544).
Savez-vous comment faire pour tester si il existe une info correspondant à mon champ description?
Je débute en Perl et j'avoue que j'ai du mal à comprendre...

Merci ;)

Citation:

---

Envoyé par oli43

Je cherche à lire le contenu avec decode_entities($strDocument->{Description}->[0]) mais quand le champ est vide il me retourne quelque chose du genre HASH(0x1f0e544).

---

c'est parce que les crochets signifient que tu as affaire à un hash contrairement à "Test" qui est un scalaire ... ne peux-tu pas éviter ces crochets vides?
Si ce n'est pas possible de modifier ton hash, la fonction ref() devrait t'aider à tester si le contenu de $strDocument->{Description}->[0] est bien un scalaire ou non.

Citation:

---

Envoyé par Jasmine80

c'est parce que les crochets signifient que tu as affaire à un hash contrairement à "Test" qui est un scalaire ... ne peux-tu pas éviter ces crochets vides?
Si ce n'est pas possible de modifier ton hash, la fonction ref() devrait t'aider à tester si le contenu de $strDocument->{Description}->[0] est bien un scalaire ou non.

---

Merci pour ton aide. Je ne peux pas modifier la structure des données, je vais donc jeter un oeil à la fonction ref().

pour savoir si tu as un {} (qui est une reference de hash vide ) :

Code:

---

1 2 3 4

if ( ref ($strDocument->{Description}->[0]) eq 'HASH' ) { ... }

---

pour savoir si cette refhash est vide tu peux faire :

Code:

---

1 2 3 4 5

my $value = $strDocument->{Description}->[0]; if ( ref $value eq 'HASH' && ! keys %$value ) { ... }

---

keys(%hash) renvoit les clefs du hash dans une liste. Ici avec ! keys tu es en mode scalaire, ça renvoit doncs le nombre des clefs du hash. le ! renvoit donc vrai si le nombre d'éléments du hash est égal à 0.

je sais pas si c'était ta question :)

Salut, tu peux aussi fouiller un peu dans les options de XML:Simple (qui ne sont d'ailleurs par toujours si Simple à comprendre !)

En utilisant SuppressEmpty, ça semble 'mieux', en tout cas plus 'naturel' à utiliser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my $ref_Hash = eval { XMLin($strFileName, (ForceArray => 1, SuppressEmpty => 0))} ;   print Dumper($ref_Hash);     my $strDescr = $ref_Hash->{'DESCRIPTION'}[0]; if (defined($strDescr)) { print "$strDescr\n"; } else { print "UNDEF\n"; }

---

J.