Mega Code Archive

 

Categories / Perl / CGI

 

Using CGI function to check the parameter

#!/usr/local/bin/perl use CGI qw/:standard/; print header,     start_html('CGI Functions Example'),     h1('CGI Functions Example'),     start_form,     "Please enter your name: ",     textfield('text'),     p,     submit, reset,     end_form,     hr; if (param()) {    print "Your name is: ", em(param('text')), hr; } print end_html;