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 27 28
|
!c:/perl/bin/perl.exe -w
# script CGI script pour creer un formulaire
# puis renvoyer les valeurs fournies.
use CGI qw/:standard/;
print header,
start_html('Un exemple simple'),
h1('Un exemple simple'),
start_form,
"Quel est votre nom ? ",textfield('nom'),p,
"Quels sont les mots cles ?", p,
checkbox_group(-name=>'mots',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']), p,
"Quelle est votre couleur favorite ? ",
popup_menu(-name=>'couleur',
-values=>['rouge','vert','bleu','chartreuse']),p,
submit,
end_form,
hr;
if (param()) {
print "Votre nom est ",em(param('nom')),p,
"Les mots cles sont : ",em(join(", ",param('mots'))),p,
"Votre couleur favorite est :",em(param('couleur')),
hr;
} |
Partager