Problème avec HTML et perl (cgi)

Version imprimable

Bonjour,

Je suis en train de réaliser un script Perl avec CGI. Je rencontre un problème avec le HTLM.

Voici la partie du code qui me pose problème :
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 print header; foreach (keys %ifCount) { print <<STOP <body> <form action="test7.pl" method="get"> <input name="groupe" value="$groupe"> <input name="Port_tot" value="$ifCount{$_[2]}{glob}"> <input name="Ethernet" value="$ifCount{$_[2]}{total}"> <input name="Ethernet_up" value="$ifCount{$_[2]}{up}"> <br> <input type=submit value="valider"> </form> </body> STOP ; }
Le code Fonctionne mais le problème que j ai c'est que je ne voudrait qu'un bouton "submit", ici il m'en plusieur puisque je lui dit Foreach... Il me mets autant de bouttons que de clés.J ai essayé en sortant le bouton du <Form> mais alors il ne me fait plus le submit puisqu'il n'est plus dans le <Form>.

J'aimerais kil m affiche chaque groupe de chaque clé et un seul boutton "Submit" .

Merci,

Mimiche

Je ne comprend pas ce qui te pose problème. Il suffit de faire les choses dans le bon ordre.

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
print header;
# d'abord on ouvre le corps de texte et le formulaire.
print "<body>\n"
print '<form action="test7.pl" method="get">\n';
# puis on utilise une boucle pour le contenu du formulaire.
foreach (keys %ifCount) {
 
print <<STOP
 
<input  name="groupe" value="$groupe">
<input  name="Port_tot" value="$ifCount{$_[2]}{glob}">
<input  name="Ethernet" value="$ifCount{$_[2]}{total}">
<input  name="Ethernet_up" value="$ifCount{$_[2]}{up}"> <br>
 
STOP
;
 
}
 
# puis on ajoute le bouton submit et enfin on ferme le formulaire et le corps de texte
print <<STOP
<input type="submit" value="valider"> 
</form> 
</body> 
STOP
;

Voilà, quoi. Tout simplement.

28/12/2007, 13h24
Mimiche

Cela fonctionne très bien.

Merci,