Return de tableaux

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:

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:

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 ! :cry:" 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 :merci: à vous !

références

:merci:

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:

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

Deux questions :
À quoi sert cette ligne ?

Code:

return ($refchiffres, $refalphabet);

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

Code:

print $chiffres."\ ";