#!/usr/bin/perl #The above sets the location of the perl compiler. use strict; use CGI; print header(); print < BCPA page - MDTech
HEAD111; use CGI; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); #For method=POST # Read the standard input (sent by the form): read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'}); # Get the name and value for each form input: @pairs = split(/&/, $FormData); # Then for each name/value pair.... foreach $pair (@pairs) { # Separate the name and value: ($name, $value) = split(/=/, $pair); # Convert + signs to spaces: $value =~ tr/+/ /; # Convert hex pairs (%HH) to ASCII characters: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # Store values in a hash called %FORM: $FORM{$name} = $value; } print "Email: " . $FORM{"email"} . "\n\n"; print "Reg_Num: " . $FORM{"reg_num"}; print <
FOOTER111; exit;