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 : 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
 
#!/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 : 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
 
#!/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.