Discussion :

[Quantactique]

Salut à tous !

Aujourd'hui j'ai une question concernant nos amis les tableaux !

Objectifs :
Je souhaite renvoyer 2 tableaux via un return à partir d'une fonction quelconque et bien entendu, les récupérer.

En code :

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
 
#J'ai :
sub fct{
               my @toto;
               my @tata;
 
               #Traitement dont je vous fais grâce
 
               return (@toto, @tata);   #Est-ce possible ?
}
 
 
sub recupTab{
                         my @recupToto;
                         my @recupTata;
 
                         (@recupToto, @recupTata) = fct();
 
                         #Encore un traitement inintéressant ici
}

Voilà. Je souhaite savoir si c'est bon.

Pour les fous de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if($marchePAS == 1) {
              print "Y a t-il un moyen de le faire grâce aux référence ?";
 
              print "Pouvez-vous m'expliquer comment créer un objet comprenant les 2 tableaux et comment les retourner, y accéder ?";
}
else{
              print "YOUPI !!!";
}
 
return $merciBeaucoup;

Pour tous :
Si cela ne fonctionne pas, y a t-il un moyen de le faire via des références ?
Sinon quelqu'un peut m'expliquer comment créer un objet comprenant ces 2 tableaux, comment les retourner, les passer et y accéder ?

Je sais que cela fait beaucoup de "SOS aidez-moi ! " mais bon je sais que vous êtes sympa (comment ?? On me dit que je suis lèche cul vous-y croyez ça ?!).

En tout cas un grand à vous !

[Gardyen]

références

[Quantactique]

J'ai entre temps trouvé un PC avec le PERL d'installé dessus et j'ai pu faire des test.
Merci à toi pour le lien.

Je poste ici le script au cas où (par le plus grand des hasard) quelqu'un d'autre aurait ce soucis.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
sub m2_returnTab{
 
				#On récupère de cette façon à partir du moment ou l'on passe un tableau et une autre valeur
				my ($refchiffres, $refalphabet) = @_;
 
 
				#Remplaçons les valeurs de nos tableaux
				@{$refchiffres} = (1, 2, 3 ,4 ,5 ,6 ,7 ,8 ,9);
				@{$refalphabet} = qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
 
				return ($refchiffres, $refalphabet);
}
 
sub m2_recupTab{
 
				my @recupChiffres = ('toto', 'tata');
				my @recupAlphabet = ('tutu', 'titi');
 
				#Le "\" avant le nom du tableau signifie que l'on passe la référence du tableau et non celui-ci
				m2_returnTab(\@recupChiffres, \@recupAlphabet);
 
				foreach $chiffres (@recupChiffres){
					print $chiffres."\ ";
				}
 
				print "\n"."-----"."\n";
 
				foreach $lettre (@recupAlphabet){
					print $lettre."\ ";
				}
 
				print "\n\n";
}
 
m2_recupTab();

EDIT : Correction de fautes d'orthographe

[Schmorgluck]

Deux questions :
À quoi sert cette ligne ?

Code :

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

				return ($refchiffres, $refalphabet);

Que cherches tu à faire avec cette ligne et pourquoi échappes tu l'espace ?

Code :

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

					print $chiffres."\ ";