Discussion :

[mquentin]

Bonjour,

je souhaite écrire une fonction récupérant les valeurs contenues dans 2 tableaux, l'un 'Normal', l'autre Associatif

Ma fonction ressemble à ca:

Code :

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

1
2
3
4
5
sub recupTablo {
        my (@tabl1, %tabl2) = @_ ;
        print("tablo1 size = ".@EmailsList."\n");
        print("tablo2 size = ".%EventVars."\n");
}

Cependant, lorsque je passe mes 2 variables, le contenu du tabl2 est récupéré par ma variable tabl1

Ex:

Code :

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

1
2
3
4
5
@tabl1 = ('a','b','c');
%tabl2 = ( 
     "d","1",
     "e","2",
     "f","3");

ma fonction me ressortira
tablo1 size = 9
tablo2 size = 0

or, je voudrais avoir
tablo1 size = 3
tablo2 size = 6

Comment puis-je procéder ?

merci d'avance

[MarneusCalgarXP]

Il faut passer par des références, sinon Perl fusionne les 2 tableaux.

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 recupTablo {
    my ($reftabl1, $reftabl2) = @_ ;
    print("tablo1 size = ". @$reftabl1. "\n");
    print("tablo2 size = ". %$reftabl2. "\n");
}
 
@tabl1 = ('a','b','c');
%tabl2 = (
    "d" => "1",
    "e" => "2",
    "f" => "3"
);
 
&recupTablo(\@tabl1, \%tabl2);

PS:

[mquentin]

Merci beaucoup pour cette réponse rapide... et je n'oublierai plus les balises code