$form_data = $ENV{'QUERY_STRING'}; $form_data =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C",hex ($1))/eg;
# Replace "+" sign with " "space char. $form_data =~ s/\+/ /g; # Split $form_data into name/value pairs: @fields = split (/&/, $form_data); # Init variables with form data values from following fields: # From Text Fields: # From Text Fields: ($form_name, $candidate) = split (/=/, $fields[0]); ($form_name, $position) = split (/=/, $fields[1]); # From Radio buttons: ($form_name, $education) = split (/=/, $fields[2]); ($form_name, $status) = split (/=/, $fields[3]); ($form_name, $hired) = split (/=/, $fields[4]); # From Comments Field: ($form_name, $comments) = split (/=/, $fields[5]); # Now heres the part where I need some perl wisdom: # If a user doesn't enter any text for the first HTML field form section # for which the variable $candidate is assigned to how would # I use a If then condition to say if blank then I will # generate a HTML text error to user indicating field is blank # until all fields are filled. open(OUT, ">> dataform.html") or die "Can't open file: $!"; print OUT "CANDIDATE: $candidate\n"; print OUT "POSITION TYPE: $position\n"; print OUT "LEVEL OF EDUCATION: $education\n"; print OUT "STATUS OF AGREEMENT: $status\n"; print OUT "WAS HE OR SHE HIRED?: $hired\n"; print OUT "ANY COMMENTS?: $comments\n\n"; close OUT;