Problème avec HTML et perl (cgi)

**Mimiche** · 28/12/2007, 09h34

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 :

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

**Schmorgluck** · 28/12/2007, 12h18

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

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

**Mimiche** · 28/12/2007, 13h24

Cela fonctionne très bien.

Merci,

Problème avec HTML et perl (cgi)

Langage Perl

Discussions similaires

Partager

Partager