test if & defined sur un élément d'un hash

Bonjour,


Je vais chercher un élément dans une table de hash, un peu à cette manière :

Code:

---

$PROJETS->{$c}->{$2}->{$1}

---

$c, $2, $1, correspondent à des chaines de caractères des clés du hash.

Cet élément du hash peut être défini avec une valeur, ou non.

Je veux tester si la valeur est définie, et traiter en conséquence en fonction du résultat.

Le souci, c'est que :

Code:

---

if (defined ($PROJETS->{$c}->{$2}->{$1})) {

---

ne me fait pas entrer dans le if, quand $PROJETS->{$c}->{$2}->{$1} est défini.

Et même si je stocke d'abord :

Code:

---

my $truc = $PROJETS->{$c}->{$2}->{$1};

---

et que je teste ensuite :

Code:

---

if (defined ($truc)){

---

ca ne marche pas non plus.

Je m'y prends mal apparemment, quel est le meilleur moyen?

Merci beaucoup pour votre aide.

Ce que tu montres devrait marcher, es-tu certain que $truc est bien défini lorsque tu ne rentres pas dans le if ? Fais un print de $truc juste avant le if pour vérifier (et utilises bien warnings et strict).

--
Jedaï

N'as-tu pas un message d'erreur?

Dans $PROJETS->{$c}->{$2}->{$1}, $PROJETS est-il bien une référence vers ton tableau? Si c'est le tableau lui-même, tu dois supprimer la première flèche.

Comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl     use strict; use warnings;     my %PROJETS;   my $PROJETS_ref = \%PROJETS;   $PROJETS{un}->{deux}->{trois} = 1;     if (defined $PROJETS{un}->{deux}->{trois} ){ print "$PROJETS{un}->{deux}->{trois} \n"; }   if (defined $PROJETS_ref->{un}->{deux}->{trois} ){ print "$PROJETS_ref->{un}->{deux}->{trois} \n"; }

---

Quelque chose m'échappe...

Code:

---

1 2 3 4 5 6 7 8 9

my $truc = $PROJETS->{$c}->{$2}->{$1}; print "TRUC : <$truc>\n";   if (defined ($truc)){ print "OK\n"; } else { print "NOK\n"; }

---

Quand j'ai une valeur non définie, j'ai :

Code:

---

#TRUC : <>

---

j'ai aussi :

Code:

---

#OK

---

au lieu de NOK ....

Par contre, ça marche bien quand j'ai une valeur :

Code:

---

1 2 3

#TRUC : <VALEUR> #OK

---

Si $PROJETS->{$c}->{$2}->{$1} est une chaîne vide alors il est défini mais quand tu fais un print tu ne vois rien (car il n'y a rien à voir).

Comment as-tu crée ton tableau?

En fait, le hash est créé à partir du parsing d'un fichier XML.

Peut-être devrais-je utiliser 'exists' ?
Me semble que ça ne marche pas pour les éléments d'un hash ou d'un array.

Citation:

---

Envoyé par byrdo

En fait, le hash est créé à partir du parsing d'un fichier XML.

Peut-être devrais-je utiliser 'exists' ?
Me semble que ça ne marche pas pour les éléments d'un hash ou d'un array.

---

Ce que je voulais demander au sujet de la création du tableau est si il a été créé dans un premier temps avec toutes des valeurs de chaînes vides et ensuite rempli. Cela pourrait expliquer des 'valeurs vides' ( $hash{cle} = '' ). Au lieu de if( defined ...) tu peux essayer if(... ne '') mais ce n'est pas très joli.


Exists permet de vérifier l'existence d'une clé de hash et non si la valeur associée est définie.

Citation:

---

Envoyé par Jasmine80

Ce que je voulais demander au sujet de la création du tableau est si il a été créé dans un premier temps avec toutes des valeurs de chaînes vides et ensuite rempli. Cela pourrait expliquer des 'valeurs vides' ( $hash{cle} = '' ). Au lieu de if( defined ...) tu peux essayer if(... ne '') mais ce n'est pas très joli.


Exists permet de vérifier l'existence d'une clé de hash et non si la valeur associée est définie.

---

Tu as raison, vu la manière dont le hash est "populé", il est créé avec des valeurs de chaines vides.

J'ai utilisé un test de ce style, comme proposé par Jasmine :

Code:

---

if ( $truc ne ''){

---

Ca suffit largement pour ce que je teste.

Le "defined" ne marchait pas car le hash se construisait vide, avant d'être rempli progressivement.

Un champ vide n'était donc pas conséquent indéfini.