Discussion :

[crochepatte]

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 :

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

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 :

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

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


Merci

[MarneusCalgarXP]

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

[Woufeil]

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.

[crochepatte]

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

[Woufeil]

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

Bon codage !

[MarneusCalgarXP]

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

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

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

[Woufeil]

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

[MarneusCalgarXP]

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

Code :

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

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

[Woufeil]

Faux !

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 :

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

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 :

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

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

[MarneusCalgarXP]

Ok ok, j'abdique