Mega Code Archive

 

Categories / Perl / CGI

 

Generate and Process Forms

#!/usr/bin/perl use warnings; use CGI::Pretty qw(:all); use strict; print header(); if (param('first') and param('last')) {     my $first=ucfirst(lc(param('first')));     my $last=ucfirst(lc(param('last')));     print start_html("Welcome"),h1("Hello, $first $last"); } else {     print start_html(title=>"Enter your name");     if (param('first') or param('last')) {        print center(font({color=>'red'},"You must enter a",(param('last')?"first":"last"),"name"));     }     print generate_form(); } print end_html(); sub generate_form {     return start_form,            h1("Please enter your name:"),            p("Last name", textfield('last')),            p("First name", textfield('first')),            p(submit),            end_form; }