Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
lib
/
perl5
/
5.8.8
/
CGI
/
eg
/
Upload File :
New :
File
Dir
//usr/lib/perl5/5.8.8/CGI/eg/tryit.cgi
#!/usr/local/bin/perl use CGI ':standard'; print header; print start_html('A Simple Example'), h1('A Simple Example'), start_form, "What's your name? ",textfield('name'), p, "What's the combination?", p, checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe'], -defaults=>['eenie','minie']), p, "What's your favorite color? ", popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), p, submit, end_form, hr; if (param()) { print "Your name is: ",em(param('name')), p, "The keywords are: ",em(join(", ",param('words'))), p, "Your favorite color is: ",em(param('color')), hr; } print a({href=>'../cgi_docs.html'},'Go to the documentation'); print end_html;