mafiaboy
14-05-2003, 19:09
#!/usr/local/bin/perl
use CGI qw(:standard);
print header;
print start_html('Простой пример'),
h1('Простой пример'),
start_form,
'Как вас зовут? ',textfield('имя'),
p,
'Какая комбинация?',
p,
checkbox_group(-name=>'слова',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']),
p,
'Какой ваш любимый цвет? ',
popup_menu(-name=>'цвет',
-values=>['красный','зеленый','синий','ж елтовато-зеленый']),
p,
submit,
end_form,
hr;
if(param()) {
print 'Ваше имя - ',em(param('имя')),
p,
'Ключевые слова: ',em(join(", ",param('слова'))),
p,
'Ваш любимый цвет - ',em(param('цвет')),
hr
}
print end_html;
use CGI qw(:standard);
print header;
print start_html('Простой пример'),
h1('Простой пример'),
start_form,
'Как вас зовут? ',textfield('имя'),
p,
'Какая комбинация?',
p,
checkbox_group(-name=>'слова',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']),
p,
'Какой ваш любимый цвет? ',
popup_menu(-name=>'цвет',
-values=>['красный','зеленый','синий','ж елтовато-зеленый']),
p,
submit,
end_form,
hr;
if(param()) {
print 'Ваше имя - ',em(param('имя')),
p,
'Ключевые слова: ',em(join(", ",param('слова'))),
p,
'Ваш любимый цвет - ',em(param('цвет')),
hr
}
print end_html;