[CGI] récupération de variable

Version imprimable

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

script1.pl

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
 
	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:

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 :cry: :cry: .. Quelqu'un aurait-il une idée? :idea:

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:

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:

my $nom_variable= "exp_$i";

$nom sera egale à exp_1

Code:

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

06/02/2006, 16h59
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 ..
06/02/2006, 17h12
djibril
tu ne peux pas declarer une variable de cette façon

Code:

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:

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:

$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:

1 2 my $$nom_variable = $query->param("exp_$i");
A ce niveau, c'est comme ci tu avais ecris :
Code:

1 2 3 my $exp_1 = $query->param("exp_1"); (si $i = 1) my $exp_8 = $query->param("exp_8"); (si $i = 8)
voilà
06/02/2006, 20h31
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ï
06/02/2006, 20h34
djibril

DANS ce cas mister jedai, propose un exemple :lol:
06/02/2006, 21h43
GLDavid

Un beau thread ! :mrgreen:
Bon courage à Stoyak !!! ;)

@++
06/02/2006, 22h29
Jedai

Citation:

Envoyé par djibril

DANS ce cas mister jedai, propose un exemple :lol:

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... :x

--
Jedaï
06/02/2006, 23h32
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 :lol:
07/02/2006, 13h29
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ï
08/02/2006, 10h26
stoyak

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

donc un petit tag :resolu: