Test sur variable "vide"

Version imprimable

Bonjour,

j'ai un bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub SOAP::Deserializer::typecast
{
         my ($self, $value, $name, $attrs, $children, $type) = @_;
         my $retval = undef;
         print ("type = $type\n");
         if ( $type eq "" ) #ici la ligne 65 :)
         {
                 $retval = "";
         }else{
                 if ( $type eq "{urn:iControl}Common.EnabledState" )
                 {
                         $retval = $value;
                 }
        }
         return $retval;
}

le problème est que $type est parfois vide, et j'ai donc l'erreur :
"Use of uninitialized value in concatenation (.) or string at (eval 113) line 65,

je vois pas comment palier ce problème

Merci pour votre aide !

Thomas

13/10/2008, 15h48
Jedai

Est-ce que $type peut-être égal à '0' légitimement ?

--
Jedai
16/10/2008, 00h36
JakoJako
Tu peux utiliser
Code:

1 2 3 4 5 if (defined($type)) { ... ton code ... }
Ça devrait résoudre le problème.

J.
20/10/2008, 10h00
thierry.chich
Ce sont ces deux lignes qui osnt en cause, je pense.
Code:

1 2 3 print ("type = $type\n"); if ( $type eq "" ) #ici la ligne 65 :)
ton print de debug rajoute au warning.
Code:

1 2 3 if ((not defined $type) or ( $type eq "" )) #ici la ligne 65 :) ..
En perl 5.10, il y a un moyen de l'écrire en une commande, mais je ne me rappelle pas bien.