Pourquoi mon hash n'est-il pas indéfini?

Question

Je le script ci-dessous (idéalisée d'un bug) en Perl:

my %metadata = undef; 
if (defined %metadata) 
{ 
    print "defined"; 
} 

Pour une raison quelconque la sortie du programme est toujours « défini ». Le réglage du hash pour qu'il soit "indéfini" le rend en quelque sorte défini. Est-ce défini comme étant "indéfini"?

EDIT:

Ceci est un cas idéalisé, dans une tentative de reproduire le problème. Ce que je suis en fait de faire est plus comme:

my %metadata = my_sub_function(); 
if (defined %metadata) 
{ 
    print "defined"; 
} 

Lorsque la sortie de my_sub_function peut être indéfinies,() ou un hachage peuplé, et je veux seulement imprimer « défini » dans le dernier de ces cas.

EDIT 2:

Soit dit en passant, j'ai trouvé que

if (scalar(keys %metadata) 

se conduit correctement pour(), mais pas encore pour le FNUD.

Answer 1

Si votre fonction retourne undef et que le FNUD est placé dans le hachage, les changements auto-FNUD qui en chaîne de '' être et vous vous retrouvez avec: %metadata = ('' => undef).

Si votre fonction a besoin pour revenir soit undef, () ou un hachage approprié et vous avez besoin de tester les trois cas séparément, je vous suggère:

my %metadata = my_sub_function(); 
if (!scalar keys %metadata) { 
    print "An empty list() was returned\n" 
} elsif (
    scalar keys %metadata == 1 and 
    exists $metadata{''} and 
    !defined $metadata{''} 
) { 
    print "undef or '' was returned\n"; 
} else { 
    print "A hash was hopefully returned\n"; 
} 

Vous pouvez le tester avec les my_sub_functions suivants :

sub my_sub_function { return()     } # 1st case 
sub my_sub_function { return undef    } # 2nd case 
sub my_sub_function { return (a => 1, b => 2) } # 3rd case 
sub my_sub_function { return qw/not a hash/  } # unhandled case 

hacking heureux

Answer 2

Essayez

my %metadata; 
undef %metadata; 
if (defined %metadata) 
{ 
    print "defined"; 
} 

Je pense qu'il était juste en utilisant un « undef » en tant que données pour alimenter le hachage.

« utilisation des avertissements » auraient dit:

defined(%hash) is deprecated at t.pl line 6. 
    (Maybe you should just omit the defined()?) 
Odd number of elements in hash assignment at t.pl line 4. 
Use of uninitialized value in list assignment at t.pl line 4. 

FNUD,() ou un hachage peuplé

Si vous voulez vraiment faire la distinction entre un hachage vide et aucun hachage, mieux utiliser une référence de hachage (également plus légère pour passer à travers le sous-programme, pas de copie par passage et tout).

Answer 3

essayer cette

%metadata=("1"=>"one"); 
undef %metadata; 
if (%metadata) 
{ 
    print "defined"; 
} 

Et si vous regardez la documentation sur perldoc -f defined, il dit cette façon de vérifier est dépréciée.

Use of "defined" on aggregates (hashes and arrays) is deprecated. 

Answer 4

si vous voyez la documentation de defined, vous constaterez que,

When defined used on a hash element, 
it tells you whether the value is defined, 
not whether the key exists in the hash. 

essayer simple, if (%a_hash) { print "has hash members\n" }

Note: undef est la valeur d'une variable qui n'a jamais été initialisé (ou qui a été réinitialisé en utilisant la fonction undef). The defined function returns true if the value of the expression is not undef.