hash moose et reference

je m'étais promis de plus vous embêter, mais il y a un truc qui me depasse (dans moose)

Code:

---

1 2 3 4

my @val = $self->fabrique->document->hash->{"$nom"}; #print "val 0 ", $val[0][0]; my $longval = @{$val[0]};

---

on me repond
Can't use an undefined value as an ARRAY reference

donc je fais un print pour voir ce qui se passe

Code:

---

1 2 3 4

my @val = $self->fabrique->document->hash->{"$nom"}; print "val 0 ", $val[0][0]; my $longval = @{$val[0]};

---

et là, miracle
ça fonctionne, plus d'erreur
no seulement val 0 m'affiche la valeur de mes champs, mais tout le reste de l'application fonctionne ?

je modifie
en fait j'ai compris
de ce cas de figure il n'y a qu'un champs par tableau et perl me prévient gentiment que la boucle for qui suivait était complètement inutile.
excusez moi pour le dérangement.

Alors, ce qu'il me semble (mais tu n'a pas donné tous les éléments, nous ne savons pas ce qu'il y a dans $self->fabrique->document->hash->{"$nom"}):

Code:

---

1 2	my @val = $self->fabrique->document->hash->{"$nom"};

---

alimente a priori @val avec un scalaire. @val a maintenant un élément, ce qu'il y a dans ton hash de hash... de hash.

Code:

---

1 2	my $longval = @{$val[0]};

---

essaie de déréférencer $val[0], mais $val[0] n'est pas une référence vers un tableau.

Mais quand tu écris:

Code:

---

1 2	print "val 0 ", $val[0][0];

---

tu utilises @val comme un tableau de tableaux. Du coup, il y a le phénomène d'autovification qui crée la référence vers un tableau.

Il n'y a plus d'erreur de compilation, mais le code n'est sans doute pas juste. Dans tous les cas, je ne comprends pas ce que essaie de faire ici. Et je pense que ton code ne marchera pas si tu utilises les pragmas:

Code:

---

1 2 3

use strict; use warnings;

---

Citation:

---

Envoyé par Lolo78

Alors, ce qu'il me semble (mais tu n'a pas donné tous les éléments, nous ne savons pas ce qu'il y a dans $self->fabrique->document->hash->{"$nom"}):


Il n'y a plus d'erreur de compilation, mais le code n'est sans doute pas juste. Dans tous les cas, je ne comprends pas ce que essaie de faire ici. Et je pense que ton code ne marchera pas si tu utilises les pragmas:

Code:

---

1 2 3

use strict; use warnings;

---

---

On me dit que Moose active automatiquement ces pragma
0ui en effet il y avait une erreur dans le code (j'avais fait une modification dans mon premier post que tu n'as certainement pas vu)
En fait j'avais adaptée une fonction que j'avais écrite pour un hash qui contenait plusieurs tableaux, mais dans ce cas il n'y avait qu'un seul tableau par hash, ce qui fait que la taille était Zero et donc undefined. D'où l'erreur. Ce qui m'a permis de supprimer la boucle for qui suivait et qui étaient inutile dans ce cas.
Mais ça surprend qu'un print puisse modifier le comportement d'un script, et sur ce point tu m'as répondu. merci .

Tu as sans doute raison. A vérifier, mais il est probable que Moose active ces pragmas.

Voici une séance sous le debugger Perl montrant le mécanisme d'autovivification:

Code:

---

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

$ perl -de 42   Loading DB routines from perl5db.pl version 1.33 Editor support available.   Enter h or `h h' for help, or `man perldebug' for more help.   main::(-e:1): 42 DB<1> x \@a; 0 ARRAY(0x600500b60) empty array DB<2> print $a[0][0][1][0];   DB<3> x \@a; 0 ARRAY(0x600500b60) 0 ARRAY(0x600509958) 0 ARRAY(0x60062ef40) 0 empty slot 1 ARRAY(0x6005e7e40) empty array DB<4> q

---

Je lance le programme et affiche le contenu de @a, qui est naturellement vide puisque je n'ai encore rien fait.

Ensuite j'imprime le contenu $a[0][0][1][0] (qui est naturellement vide).

Comme tu peux le voir quand j'affiche la seconde fois le contenu de @a, le print suffit à créer toute une structure de données (vide, mais existante).

Citation:

---

Envoyé par Lolo78

Comme tu peux le voir quand j'affiche la seconde fois le contenu de @a, le print suffit à créer toute une structure de données (vide, mais existante).

---

j'ai compris le truc. Par contre je ne sais pas encore me servir d'un debogueur et c'est pourquoi j'emploie quantité de print pour suivre ce qui se passe. Maintenant que je sais qu'un print peut modifier le comportement de l'application ...
Ensuite, il y a certainement un problème dans mon code, car la fonction qui exploite des hash qui contiennent plusieurs tableaux, devrait aussi fonctionner s'ils n'en contenaient qu'un seul. Mais bon, pour l'instant la question était plutôt de l'organisation du tout et de la façon dont ça va fonctionner. Dans le detail, le code est très imparfait et ne fonctionne que quand tout va bien.
Et pour finir je mets des warnings et des strict partout dans mes codes ...;) Bonne soirée.

Bonsoir,

j'ai rédigé récemment une FAQ sur le débogage en Perl (pas seulement le debugger, mais aussi les autres techniques de débogage). Je pense que ça pourrait te servir: FAQ Débogage en Perl.

Bonne lecture et bonne soirée...

Citation:

---

Envoyé par Lolo78

Bonsoir,

j'ai rédigé récemment une FAQ sur le débogage

---

Je lirais avec attention tes articles, tout en me demandant comment on peut trouver le temps de rédiger tout ça.
Tu m'as demandé ce qu'il avait dans de hash, j'aurais pu te répondre simplement en te donnant l'isa de la variable hash

Code:

---

1 2	has 'hash' => ( isa => 'HashRef[ArrayRef[Str]]',

---

ce qui me donne l'occasion de dire que Moose est très tatillon pour la déclaration des types. Mais que Moose est un outil fabuleux et très agréable à utiliser.
Bonne journée.

Citation:

---

Envoyé par vidici

je m'étais promis de plus vous embêter

---

Je pense que si c'était le cas, on ne te répondrait pas :) (mais si on ne te réponds pas, ça ne veut pas forcément dire que tu nous embêtes, hein ;) )

Si j'ai bien compris, et si $self->fabrique->document->hash->{"$nom"} retourne un array ref (ArrayRef au sens Moose), je dirais que tu dois récupérer le résultat ainsi :
soit

Code:

---

1 2	my @val = @{$self->fabrique->document->hash->{"$nom"}}; print $val[0];

---

soit

Code:

---

1 2	my $val = $self->fabrique->document->hash->{"$nom"}; print $val->[0];

---

avec une préférence pour le deuxième.

Citation:

---

Envoyé par Philou67430

Je pense que si c'était le cas, on ne te répondrait pas :) (mais si on ne te réponds pas, ça ne veut pas forcément dire que tu nous embêtes, hein ;) )

---

c'est sympa

Citation:

---

Envoyé par Philou67430

Si j'ai bien compris, et si $self->fabrique->document->hash->{"$nom"} retourne un array ref (ArrayRef au sens Moose), je dirais que tu dois récupérer le résultat ainsi :
soit

Code:

---

1 2	my @val = @{$self->fabrique->document->hash->{"$nom"}}; print $val[0];

---

soit

Code:

---

1 2	my $val = $self->fabrique->document->hash->{"$nom"}; print $val->[0];

---

avec une préférence pour le deuxième.

---

oui mais non c'est bien en première notation

Code:

---

1 2	print $val[0][x];

---

Alors bien sur on peut penser qu'il y a un tableau de trop, mais j'ai bien le hash structure nommée, un tableau qui contient un ou plusieurs strings.
Je ne sais pas si c'est lié mais comme je l'ai déjà dit j'ai eu beaucoup de mal a enfoncer les hash et les tab dans Moose car ce dernier demande à être servi de façon anonyme c'est à dire avec des [@tab] et des {%hash} ... c'est peut être le pourquoi du comment, mais j'en sais rien.

Peut-être pourrais-tu fournir un script "de test" contenant le minimum requis pour le faire tourner et un objet Moose qui pose problème, afin que l'on puisse expérimenter (car surtout sans connaitre Moose, pas facile pour moi d'imaginer ce que retourne les fonctions que tu nous montres).

En fait il n'y a plus vraiment de problème, c'est juste que
dans moose

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

my @val = $self->fabrique->document->hash->{"$nom"};   if ( defined $val[0]) { # body... my $longval = @{$val[0]};   for (my $var = 0; $var < $longval; $var++) { my $ligne = $val[0][$var]; $result = $result.$ligne; } }     return $result; }

---

correspond à en dehors de moose

Code:

---

1 2 3

my %hash = $classe->get_hash; print $hash{'nom'}->[x];

---