Example Two Results

#!/usr/bin/perl # ODBC/Perl Example Two # Takes input from a textbox, makes sure it is less than five # characters, and gives it back to the user. # Written by : Zack Steinkamp, 9 May 1997 require "cgi-lib.pl"; # Parse arguments &ReadParse(*in); # Flush StdOut $| = 1; # Print HTTP Header print &PrintHeader; #Check to see if the form is filled out if ($in{'name'}) { if (length($in{'name'})>5) { $in{'name'} = substr($in{'name'},0,5); $message = "ERROR : Can't you READ? I said FIVE characters!!!"; &displayForm; } else { &displayResults; } } else { $message = "Example Number Two"; &displayForm; } exit(0); sub displayResults { print < Example Two Results You entered $in{'name'} in the textbox.

Back to the examples page.
View program source.
Execute this program again. END_OF_PRINT } sub displayForm { print < Example Number Two

$message

Please enter at most five characters, then click the Submit button...

END_OF_PRINT }