Mega Code Archive

 

Categories / Perl / CGI

 

Get form submitted value

#!c:/perl/bin use CGI ':standard'; print header(); print "Form Elements", br(), br(), br(); print start_form; print "A Text Box:       ", textfield('surname', 'Default', 50), br();   print "A Select Box:        ", popup_menu('SelectBox', ['Perl', 'Web', 'Development'], 'Fast');   print p, "Text Area:      ", textarea('comments', 'Default Text', 10, 50); print p, "CheckBoxes: ", checkbox_group('check1', ['one', 'two', 'three']); print p, "Radio Buttons: ", radio_group('radio1', ['a', 'b', 'c']); print p, submit(); print end_form; if (param())  {     print "The surname you entered was: ",em(param('surname')),        p, "The Selections are: ",em(join(", ",param('SelectBox'))),        p, "The comments box contains: ",em(param('comments')),         p, "you selected checkbox: ",em(param('check1')),         p, "you selected radio: ",em(param('radio1')); }