Generated: Tue Feb 2 17:54:54 2010 from refs.pl 2005/04/25 1.7 KB.
#!/Perl/bin/perl use CGI qw(: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 end_html; sub showhello { print "Hello, World...\n"; print "References ...\n"; print "Yahoo search : perl reference documentation package \n"; print "http://www.rexswain.com/perl5.html - Simple list style help ...\n"; print "http://search.cpan.org/src/LDS/CGI.pm-3.08/cgi_docs.html ... CGI = creating HTML forms ...\n"; print "http://aspn.activestate.com/ASPN/Perl ... ActivePerl documentation ...\n"; print "http://aspn.activestate.com/ASPN/docs/VisualPerl/readme.html#installation ... ActivePerl add-in for Visual Studio ...\n"; print "http://www.activestate.com/store/trial/register.plex?id=PerlDevKit ... Get ActivePerl DK (formerly ASPN)...\n"; print "http://www.whitefire.com/programs/docs/MtmlParserDoc.html ... A file parser ...\n"; print "from : http://www.whitefire.com/programs/ - MtmlParser-0.8.tar.gz and perltools.tar.gz This contains some useful perl tools ...\n"; print "http://theoryx5.uwinnipeg.ca/modperl/docs/general/perl_reference/perl_reference.html ... }