[dis]

[mafiaboy]

#!/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;

[Maxx]

hic pó chân luôn

[Slash]

Hi.
Đây là tiếng nói của ông Lênin ở nước Ukraine :D , hơi khác tiếng Nga đôi chút. Bạn muốn tìm hiểu thì nhờ ai biết tiếng Nga là đc. Tôi thấy ở đây có mấy câu hỏi thông thường như khi mình đăng ký trong Yahoo :
Print Header : Simple Premiere (Primary)
Start_form : what's your name ?
Pop-up menu (câu hỏi trong ngoặc) ; What's your favorit world ? => value : green, red, blue....

Tôi góp vui thôi mà. Thân.