Discussion :

[dyngry]

Bonjour
Je cherche à utiliser une hash table que me renvoie ma méthode dans une référence . la méthode se trouve dans un package différent voila le bout de code :
script applant :

Code :

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

1
2
3
4
5
6
 
  1 #!/usr/bin/perl -w
  2 use strict ;
  3 use Switch ;
   use Tables::Tables ;
   my %tables = %{Tables::Tables::return_tables()};

quand je fais un dump de %tables , c'est vide .
et j'ai ça comme message d'erreur :
Undefined subroutine &Tables::Tables::return_tables called at ./main.pl line 53.

et ci dessous la fonction dans le fichiers /Tables/Tables.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
   1 require 5.004;
   2 package Tables;
   3 use strict ;
   4 
   5 my (@table1,@table2,@table3);
   6 my %tables_1 = ( 0 => \@table1, 1 => \@table2, 2 => \@table3 );
   7 
   8 sub return_tables {
   9         return \%tables_1;
  10 }

Merci

[Philou67430]

En fait, tu n'as pas défini un hashage avec sa clé et sa valeur, mais seulement avec une valeur, d'où l'erreur que tu obtiens.
Ensuite, tu n'as pas fourni la référence à la méthode, mais tu as appelé la méthode et mis dans le table, le résultat.

Pour faire ce que tu veux, il faudrait plutôt écrire quelque du genre :

Code :

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

my %tables = (return_tables => &Tables::Tables::return_tables);

Est-ce une méthode de classe ? (non attachée à un objet). Si c'est une méthode d'objet, je ne vois pas l'intérêt de procéder à son enregistrement dans une table de hashage, vu que la méthode est déjà intrinsèquement attachée à l'objet.

[dyngry]

Merci pour votre réponse .
Oui c'est une méthode de classe elle n'est attaché à aucun objet .
Mon problème en faite est d'exporter mon hash pour pouvoir l'utiliser dans le script principale appellant.

le script Table.pm contient juste des tables qui sont trop grandes et gênante pour la clarté de mon script main.

Merci

[dyngry]

J'ai essayé avec ce que vous me proposez !! rien à faire toujours la même erreur.

[Philou67430]

Dans Tables/Tables.pm, l'instruction package n'est pas correcte. Il faut écrire :

Code :

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

package Tables::Tables;

[dyngry]

Bonjour
Merci pour vos conseils !! ça l'air de marcher.
je rencontre aussi un autre problème donc quand je reçois mon hash et d'ailleurs j'utilise l'expression que vous m'avez proposez , je n'arrive pas à utiliser les tables qui y sont.
Je fais un dump dessus et j'ai ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
$VAR1 = 'return_tables';
$VAR2 = {
          '1' => [ '10011111101101110',
                   '10011111100101100',
                   '10011111100100110'
                 ],
          '0' => ['11011111011110100'
                 ],
          '2' => [
                   '10000111110110010',
                   '11100011111101010'
                 ]
        };

return_tables est le nom de la fonction que j'appelle.
je vous demande si il y a moyen soit si vous connaissez un tuto qui explique ça en détail ou de me dire c'est quoi qu'on fait dans l'expression que vous m'avez proposez exactement.