[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

perl et cgi


From Gerard Kohler <kohler at oceanetpro dot net>
Subject perl et cgi
Date Thu, 02 Sep 2004 07:18:03 +0200

bonjour,

petit problème d'un novice en CGI :

je n'arrive pas à modifier la valeur d'un champ caché lors d'un appel d'un programme CGI

voici mon programme , le but est d''incrementé $p1 et $p2 en fonction des boutons pressés.
Il y a probablement une erreur de raisonement de ma part, ou j'ai peut ête rien compris ?


merci de votre aide.

Gérard

#!/usr/bin/perl -w

use strict;

use CGI;

my $query = new CGI;
my $valeur = 0;
my @para;
my $para;
my $p1 = 0;
my $p2 = 0;
my $test = 0;


print $query->header; print $query->start_html;

@para = $query->param;
#$valeur = $query->param(shift(@para));

print "<HR>";
print "<BR>";

print "<H1> @para </H1>\n";

print "<HR>";
print "<BR>";

foreach $para (@para){
   $valeur = $query->param($para);
   if ($para=="bouton_1"){
	$test=0;
   }else{
	$test=1;
   }
   print "<H1>retour : $para     valeur : $valeur  -->>>   test = $test</H1>\n";
   print "<BR>\n";
}
if ($test==0){$p1=$p1+1;}else{$p2=$p2+1;}

print "<HR>\n";
print "<BR>\n";

print $query->start_form;
print $query->submit(-name=>'bouton_1',-value=>'VALIDER');
print "\n<BR>\n";
print $query->submit(-name=>'bouton_2',-value=>'ANNULER');
#print $query->hidden(-name=>'cache1',-value=>$p1);
#print $query->hidden(-name=>'cache2',-value=>$p2);
print "\n<INPUT TYPE='HIDDEN' NAME='cache1' VALUE='$p1'>\n";
print "<INPUT TYPE='HIDDEN' NAME='cache2' VALUE='$p2'>\n";
print $query->endform;

print "<HR>\n";
print "<BR>\n";

print "<H1> @para </H1>\n";
print "<HR>\n";
print "<BR>\n";
print "<H1> p1 = $p1  ---------     p2 = $p2</H1>\n";

print "<HR>\n";
print "<BR>\n";
print "<HR>\n";
print $query->end_html;