Discussion :

[stoyak]

Alors voilà, je crée un tableau dont le nombre est fonction de ce qu'a entré l'utilisateur ($nb):

script1.pl

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
 
	for ($i = 1; $i< $nb+1; $i++)  {
		print "
			<tr>
				<td>";
				print $cgi->textfield (-name=>"exp_$i", -size=>"20", -maxlength=>"30");
				print "</td>
				<td>";
				print $cgi->textfield (-name=>"Cy5_$i", -size=>"12", -maxlength=>"30");
				print "
				</td>
				<td>";
				print $cgi->textfield (-name=>"Cy3_$i", -size=>"12", -maxlength=>"30");
				print "
				</td>
				<td>";
				print $cgi->textfield (-name=>"date_$i", -size=>"10", -maxlength=>"20");
				print "
				</td>
				<td>";
				print $cgi->textfield (-name=>"manip_$i", -size=>"15", -maxlength=>"30");
				print "
				</td>
				<td>";
				print $cgi->filefield (-name=>"upload_$i", -size=>"20", -maxlength=>"30");
				print "
				</td>
			</tr>
		";
	}

je souhaite ensuite récupéré les informations qui ont été entrées dans ce tableau:
script2.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $i;
for ($i = 1; $i<$nb_lame+1; $i++) {
	my $exp."_".$i = $query->param("exp_$i");
	my $cy5."_".$i = $query->param("Cy5_$i");
	my $cy3."_".$i = $query->param("Cy3_$i");
	my $date."_".$i = $query->param("date_$i");
	my $manip."_".$i = $query->param("manip_$i");
	my $file."_".$i = $query->param("upload_$i");
}

mais voilà, ça ne marche pas .. Quelqu'un aurait-il une idée?

[djibril]

Au fait tu te melanges entre le contenu d'une variable et le nom de la variable. Donc pour faire ce que tu veux, faut passer par des references.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my $i;
for ($i = 1; $i<$nb_lame+1; $i++) {
  my $nom_variable = "exp_$i";
  my $$nom_variable = $query->param("exp_$i");
 
  #Je reecris $nom_variable pour ecraser l'ancien
  $nom_variable = "cy5_$i";
  my $$nom_variable= $query->param("Cy5_$i");
 
  etc
  etc
}

$nom_variablesera le nom de ta variable. Pour le premier cas :

Code :

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

my $nom_variable= "exp_$i";

$nom sera egale à exp_1

Code :

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

my $$nom_variable= $query->param("exp_$i");

Je cree une variable qui s'appelera $exp_1 d'ou le $$nom_variable
Ainsi si tu fais print $exp_1 qui equivaut à $$nom_variable, tu auras bien la valeur de $query->param("exp_$i")

Courage

[stoyak]

peux-tu être plus clair? en quoi est ce que je me mélange? tu répète 2 fois $nom dans ta première partie de code, pour le coup, oui, je me mélange ..
et je vois pas en quoi les référencecs doivent être appliquées ici ..

[djibril]

tu ne peux pas declarer une variable de cette façon

Code :

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

my $exp."_".$i;

D'apres ce que j'ai compris tu souhaites avoir des variables qui s'appeleront
$exp_1, $exp_2, $cy5_1, etc en fonction de la valeur de $i.
Comme tu ne peux pas declarer à l'avance my $cy5_6 par exemple, tu les creé dynamiquement dans ta boucle for.
Mais Perl ne comprend pas

Code :

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

my $exp."_".$i;

d'où l'intervention des references pour creer dynamiquement des nom de variables.

donc en debut de boucle je creer une variable qui contiendra les futurs noms de tes variables, d'ou

Code :

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

$nom_variable = "exp_$i"; tu peux l'appeler comme tu veux.

En fonction de $i, $nom_variable sera different.
pour pouvoir creer ta variable ($exp_1 par exemple), tu dois faire :

Code :

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

1
2
 
my $$nom_variable = $query->param("exp_$i");

A ce niveau, c'est comme ci tu avais ecris :

Code :

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

1
2
3
 
my $exp_1 = $query->param("exp_1"); (si $i = 1)
my $exp_8 = $query->param("exp_8"); (si $i = 8)

voilà

[Jedai]

Et c'est typiquement un truc qu'il ne faut jamais faire... Les références symbolique c'est "mal" (pour une explication en détail des méfaits des références symbolique une petite recherche sur ce forum suffira) ! (d'ailleurs ce n'est pas sans raison si "use strict;" les interdit)
A la place il faut utiliser des tables de hachages qui permettent à peu près les mêmes fantaisies mais sans les risques associés.

--
Jedaï

[djibril]

DANS ce cas mister jedai, propose un exemple

[GLDavid]

Un beau thread !
Bon courage à Stoyak !!!

@++

[Jedai]

DANS ce cas mister jedai, propose un exemple

Un exemple de quoi ? D'utilisation d'une table de hashage ? Je doute que tu en ai besoin (my %hash; $hash{ma_chaine_de_caractère} = "Wouala".
Quant aux méfaits des références symboliques, elles polluent l'espace des noms sans nécessité (aucun avantage par rapport à un hash) : imagine que par malchance tu te retrouves avec une de tes références symboliques égale au nom de l'une de tes autres variables...

--
Jedaï

[djibril]

Je suis d'accord qu'il est preferable d'utilliser des hash. Mais on reviendra qd même aux references anonymes pour la construction d'un hash plus complexe. Quoique, vaut mieux faire au plus simple pour chacun. Tout depends de ce qu'on veut faire et de la maniére de penser de chacun

[Jedai]

Les références anonymes ne sont pas un problème !!! Les références symbolique le sont : les références anonymes ne polluent pas l'espace des noms (comme l'indique leur dénomination) et ne créent pas de risque de collision, contrairement aux références symboliques. Franchement oublie les références symboliques c'est une TRES mauvaise idée !
Je suis pour le TIMTOWTDI, c'est même ce qui m'attire dans Perl, mais les références symbolique non, il ne faut pas les utiliser...

--
Jedaï

[stoyak]

Bon, j'ai résolu mon souci! j'ai utilisé des hashs et des références anonymes!!

donc un petit tag