#!/usr/bin/perl -T
use strict;
use warnings;
use CGI qw(:standard);
my %label = (
mdk => 'Mandrake',
debian => 'Debian',
slack => 'Slackware',
red => 'Red Hat!!',
);
print header,start_html,start_form,
"Quale e' il tuo nome e cognome?",
textfield('nome'), br(),
'Come hai conosciuto linux?',
textarea('conosciuto'), br(),
'Quale distro usi?', br(),
popup_menu(
-name => 'distro',
-values => [keys %label],
-labels => \%label,
), br(),
submit(-name=>'Spedisci',-value=>'Invia'),
end_form,
;
if (param('Spedisci')) {
print pre(
'nome = ', param('nome'), "\n",
'conosciuto = ', param('conosciuto'), "\n",
'distro = ', param('distro'), "\n",
);
}
print end_html;
I recommend that you check out Ovid's
Web Programming
with Perl in the meantime. :)
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|