Discussion :

[byrdo]

Bonjour,


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

Code :

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

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

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

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 :

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

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

et que je teste ensuite :

Code :

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

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.

[Jedai]

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ï

[byrdo]

Quelque chose m'échappe...

Code :

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

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 :

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

#TRUC : <>

j'ai aussi :

Code :

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

#OK

au lieu de NOK ....

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

Code :

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

1
2
3
 
#TRUC : <VALEUR>
#OK

[Jasmine80]

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?

[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.

[Jasmine80]

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.

[Jasmine80]

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 :

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
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";	
}

[byrdo]

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

Code :

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

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.