[Perl Objet] Constructeur avec tableau en parametre

Bonjour,

Je souhaiterai creer un module Perl.
Pour une instance de ce module, j'aurai besoin d'un constructeur qui accepte en parametre un tableau...
Malheuresement, je n'y arrive pas...

Code:

---

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

... sub New { my ($classe, @TM, @GC, $value) = @_; #initialisation of class datas my $this = {"TM" => @TM, "GC" => @GC, "value" => value};   bless ($this,$classe); #link the ref to the class   return $this; #return the ref instanced } ...

---

...En effet, @_ concatene les tableaux passés en parametre lors de la création d'une instance du module.

Code:

---

1 2 3 4 5 6 7 8

... my @GC = (1,2,3); my @TM = (4,5); my $value = 6; ... my $object = MyModule->New(@GC,@TM,$value); ...

---

Est ce que quelqu'un a deja eu ce probleme? Quelqu'un à trouver une solution astucieuse (pas du genre à tout passer en scalaire...8O )


Merci

Une solution possible est d'encapsuler tes tableaux dans une hash, et de passer cette hash en paramètre tout simplement

Bonjour,

Et bien et bien, on oublie l'applatissement des listes ? ;)

Si tu veux passer un tableau, il faut en réalité passer une référence au tableau, sinon effectivement Perl va tout de mettre dans un seul tableau.

Si tu veux un exemple dit le moi.

€dit : ta solution ne marche pas MarneusCalgarXP : l'applatissement des listes fera en sorte que chaque élement tu tableau fera une clé pour la table de hachage. Le mieux est d'utiliser les références.

Merci, j'avais completement oublié les references!!!
Je vais essayer...
Merci :P

Quand ton problème sera résolu, n'oublie pas d'ajouter la balise résolu ;)

Bon codage !

Citation:

---

Envoyé par Woufeil

€dit : ta solution ne marche pas MarneusCalgarXP : l'applatissement des listes fera en sorte que chaque élement tu tableau fera une clé pour la table de hachage. Le mieux est d'utiliser les références.

---

Tu penses ? ca devrait passer, si dans ta hash, tu mets :

Code:

---

1 2 3 4

clé1 => @tab1 clé2 => @tab2 clé3 => valeur

---

mais bon, c'est sur que c'est mieux de passer par les références ;)

Non, ça sera fera pas ce que tu veux. En fait, tous les éléments dans un tableau ou une table de hachage sont des scalaires. Ici, si tu fais ça, cela associer clé1 au premier élément de tab1, clé2 au premier élément de tab2 etc.

Je le dit juste pour info hein ;)

Pourtant, j'ai déjà utilisé de telles structures

Code:

---

1 2 3 4 5 6 7 8 9 10

my %HASH_DOM = (); my $prefix = 'array'; $HASH_DOM{$prefix}[0] = $domkey; # domain key $HASH_DOM{$prefix}[1] = $domcaption; # domain caption $HASH_DOM{$prefix}[2] = $affkey; # affiliate key $HASH_DOM{$prefix}[3] = $affcaption; # affiliate caption $HASH_DOM{$prefix}[4] = $domkey."_MSU_flux.".$fichier; # name of MSU file $HASH_DOM{$prefix}[5] = $domkey."_".$fichier; # name of domain logs $HASH_DOM{$prefix}[6] = $domkey."_MUV_flux.".$fichier; # name of MUV file

---

ici, on a bien une hash ( %HASH_DOM ), une clé ( $prefix ) et le contenu de $HASH_DOM{$prefix} est bien un tableau ;)

Faux ! :P

C'est ce que l'on appelle une référence anonyme vers un tableau. Une référence étant un scalaire, c'est donc bien un scalaire que contient ta table de hachage.
En fait ton code est équivalent à ceci :

Code:

---

1 2	my $sans_nom = [$domkey, $domcaption...]; $HASH_DOM{$prefix} = $sans_nom;

---

La différence, c'est qu'on ne s'embête pas aec une variable nommée.

Si tu ne me crois pas, lance ceci :

Code:

---

1 2 3 4 5

my @tab = (1,2,3); my %h = ("cle1"=>5, "cle2" =>@tab); print @h{"cle2"};

---

Tu m'en diras des nouvelles ;)

Ok ok, j'abdique :hola:

:lol: