Récupération d'un tableau paramètre
Bonjour
Je travail sur un projet d'application perl/cgi.
Je test pour l'instant le passage de paramètre (un tableau) d'un script perl à un autre script perl qui est chargé de me créer une page html.
Mon problème étant la récupération des valeurs du tableau (pour le passage d'un simple paramètre aucun souci) dans le 2ème script perl.
Pour le moment, rien ne s'affiche avec ce code
Voici le premier script perl (celui passant le tableau en paramètre vers le deuxième script) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl -w
use warnings;
use CGI;
my($cgi) = new CGI;
print "Content-type: text/html\n\n";
my($prenom) = $cgi->param("prenom");
@hello=("toto","titi","tutu");
my $URL="http://linux.isi.u-psud.fr/~kleber/cgi-bin/resultat.pl?res=$hello";
#exec ($URL);
print "<META http-equiv=\"REFRESH\" content=\"0; url=$URL\">"; |
Et voici le second script perl (celui censé récupérer et affiché les valeurs du tableau :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl -w
use warnings;
use CGI;
#my($cgi) = new CGI;
$q = new CGI;
print $q->header;
print $q->start_html("Resultat");
print "Rentrez votre prenom : <BR>";
print $q ->start_form(-method=>"get", -action=>"script.pl");
print $q->textfield(-name=>"prenom", -size=>20,-maxlength=>50);
print $q->submit();
print $q ->endform;
@var= $q->param("res");
foreach $valeurs (@var){
print $valeurs."\n";
}
print $q->end_html; |
Si vous avez la moindre idée, je vous remercie.
