Discussion :

[vidici]

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

Code :

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

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 :

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

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.

[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"}):

Code :

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

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 :

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

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 :

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

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 :

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

1
2
3
 
use strict;
use warnings;

[vidici]

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 :

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

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 .

[Lolo78]

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 :

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
$ 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).

[vidici]

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.

[Lolo78]

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

[vidici]

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 :

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

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.

[Philou67430]

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 :

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

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

soit

Code :

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

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

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

[vidici]

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

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 :

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

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

soit

Code :

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

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 :

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

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.

[Philou67430]

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

[vidici]

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

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

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

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