Discussion :

[totox17]

Salut,
Dans un prog je dois récupérer à partir d'une base de données des résultats puis les stocker dans un tableau de type:
tab[n° ligne][n° colonne]= "Valeur".
J'ai essayé avec la méthode push @tab1, [@tab2] (cad que j'insère un tableau dans un tableau, un tableau de tableau koi) mais je n'arrive pas à récupérer les résultats. Je précise sue j'utilise perl5. Si qqn à une astuce ce serait cool.
Merci

[And_the_problem_is]

P 261 de O Reilly (Ma bible !!! Même si je ne comprends pas tout)

Generation d'un tableau de tableau
#Lire depuis un fichier
while (<>){
push @tab, [split];
}

Je ne sais pas si c'est l'aide que tu attendais mais j'espère que ca t'aideras un peu quand même

[arthurr]

ca devrait le faire :

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
 
#!/usr/bin/perl
my @tab1;
push @tab1,"a";
push @tab1,"b";
push @tab1,"c";
push @tab1,"d";
 
 
push @tableau,[@tab1];
 
for(my $i=0;$i<@tableau;$i++)
{
	my $compteur=0;
	while()
	{
		if (defined $tableau[$i][$compteur])
		{
			print $tableau[$i][$compteur] . "\n";
		}
		else
		{
			last;
		}
		$compteur++;
	}
}

[nyal]

attention tu ne peux pas faire ce que tu souhaites avec push.
si tu as plsieurs tableau à mettre à la fin . il faut que tu fasses un psuh comme cela :

Code :

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

1
2
 
push @{$tabl[$nb]}, @tab2

mais attention nous rentrons dans le monde merveilleux des references. ca deveint un peu subtile dans la notation .

donc voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#! /usr/bin/perl
 
$cool = ["bien", "frites"];
@second = ("poulet", "frites");
push @$cool, @second;
foreach (@$cool)
{
    print $_ . "\n";
}

et un autre

Code :

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

1
2
3
4
5
6
7
 
#! /usr/bin/perl
 
$cool = [["bien"], ["frites"], []];
@second = ("poulet", "frites");
push @{$cool[2]}, @second;
print $cool[2][0] . "\n";

regarde les resultats. c est assez subtil. je te laisse comprendre pourquoi j ai fait ces deux exemples .et tu vas avoir du mal à comprendre sans utilisation des references. il faut que tu t entraines la dessus. ca viendra pas en deux secondes

si tu as des questions sur le perl n hesite pas je suis à ta disposition. il y a arthurr aussi . il faut dire qu'on n est pas des masses à apprecier le perl tout de méme