comment vérifier si un hachage de référence est vide en perl

J'ai besoin de tester, si mon hashref contient 0 éléments.
J'ai utilisé ce code:

$self = { fld => 1 };
%h = ( "a" => "b" );
$self->{href} = { %h };
print STDERR $self->{href}{ "a" };
print STDERR "\n";
print "size of hash:  " . keys( %h ) . ".\n";
print "size of hashref:  " . keys( $self->{href} ) . ".\n";

Il fonctionne bien avec perl 5.16, mais échoue avec perl 5.10:

Type of arg 1 to keys must be hash (not hash element) at - line 7, near "} ) "
Execution of - aborted due to compilation errors.

InformationsquelleAutor basin | 2013-04-30

perl

14

Si vous souhaitez utiliser
```
%hash
```
pour une table de hachage, vous pouvez utiliser
```
%{ $hash }
```
pour une référence, il est donc
```
keys %{ $self->{href} }
```
Remarque: Dans certaines versions de Perl, keys accepte une référence. Cependant, c'était une fonctionnalité expérimentale qui a été abandonnée. Il ne faut pas l'utiliser.
- Si ref n'est pas une table de hachage, il est possible de le faire if (!keys $self->{'href'}) {} dans l'instruction if. Est va fonctionner de la même dans toutes les versions de Perl?
- Pas de. C'était une fonctionnalité expérimentale qui a été abandonné.
- N'est ce retour à vide ou 0?
- Ne pas poser de nouvelles questions dans les commentaires, et surtout pas dans les commentaires d'une réponse qui n'a aucun rapport avec votre question.
- Êtes-vous sérieux @ikegami? Déterminer les expressions ci-dessus équivaut à la va exactement à l'esprit de la question.
- Tout à fait sérieux. Si vous voulez savoir ce que keys est le cas, allez lire le docs. Si après cela vous avez encore besoin de quelques éclaircissements, Poser une Question.
- La Question est: comment faire pour vérifier si un hachage de référence est vide en perl. je pose la question: N'est ce retour à vide ou 0? Vous pouvez choisir d'être utile et de répondre à la question, puis suggèrent que cela pourrait être pas l'endroit pour cela, mais plutôt de plutôt de montrer votre débordement de pile prouesses. Bon travail de l'homme! @ikegami
- Votre question est sans réponse et au mauvais endroit. Je vous ai donné des instructions précises sur la façon de résoudre votre problème. Votre réticence à écouter ne me rend pas inutile. S'il vous plaît arrêter de spammer.
- Veuillez expliquer pourquoi ma question est sans réponse. En outre, si elle est sans réponse, comment poser un question de l'aide?
- Il n'est pas clair ce que "il" est. // Je suppose que vous serait plus facile d'en poster une Question. Si pas, nous demander des renseignements supplémentaires dans les commentaires à votre question.
- oh vous détendre. @landesko: keys() est sensible au contexte et doit renvoyer une liste de clés, ou le nombre de touches, selon qu'il est évalué dans la liste ou un contexte scalaire, respectivement. Donc, mon @foo = keys(%bar), vous obtenez une liste, alors que mon $baz = keys(%bar) vous donnera un certain nombre. Dans l'avenir, vous pouvez utiliser perldoc -f à la recherche d'objets internes. 🙂
- Qu'en est %{ $hash }?
- Le déplacement pour chat: chat.stackoverflow.com/rooms/153422/hashref-discussion
- Il semble que vous recommandez keys(%{ $ref }) pour vérifier si une valeur de hachage est vide. Pourquoi ne pas simplement utiliser %{ $hash } pour vérifier si une valeur de hachage est vide? Oh, vous savez qu'il y a une chasse aux sorcières dans les anciennes version de Perl? Pourquoi ne précisez-vous pas cela? Pourquoi sont-boulochage sur OT-vous des commentaires? C'est exactement le désordre, j'ai été la règle et j'ai été en essayant d'éviter les!
InformationsquelleAutor ikegami
2

Utilisation des références avec des fonctions internes comme keys est supporté seulement dans les nouvelles versions d'œuvres méconnues. Pour un maximum de compatibilité, vous devez déréférencement d'abord:
```
print "size of hashref:  " . keys( %{ $self->{href} } ) . ".\n";
```
InformationsquelleAutor friedo
2

Vous avez besoin de déréférencement d'elle comme une table de hachage:
```
print "size of hashref: ", keys %{ $self->{href} }, "\n";
```
Pour la TIMTOWTDI, pour vérifier si elle a toutes les clés, vous n'avez pas besoin keys:
```
print "undefined" unless %{ $self->{href} };
```
- Dans la version de Perl, il l'utilise, que le dernier fragment serait inutilement itérer sur l'ensemble de hachage. Juste pour info.
InformationsquelleAutor Zaid
2

Pour savoir si une table de hachage a des éléments, vous venez de l'utiliser dans un contexte scalaire:
```
scalar %h
```
ou
```
%h ? "yup" : "nope"
```
scalar keys %h accomplit le même but, en comptant les clés dans %h, mais c'est mieux de demander ce que vous voulez savoir.

De toute façon, cependant, %h est un hachage et pas un hashref. (Même si certaines versions de Perl ne tolérer un hashref comme un argument de keys.) Donné une expression EXPR qui donne un hashref, vous obtenez à la hash en disant %{ EXPR }. Mettre cela ensemble avec votre exemple de code, nous obtenons
```
print "size of hashref:  " . keys( %{ $self->{href} } ) . ".\n";
print "hash " . (%{ $self->{href} } ? "does" : "does not") . " contain elements\n";
```
InformationsquelleAutor darch

Vous devez vous connecter pour publier un commentaire.