Thanks to all of you. It worked! I am getting a hang of it finally. I spend most of my leisure hours on the computer trying to learn MacPerl. I am getting somewhere NOW!! Learning is fun. But when the script refuses to work after hours of trying and to figure out what has gone wrong, that's the worst part. I am the one who has never given up. I will learn and then perhaps quit. Thanks to all of you, especially to Thomas and Scott Amitava Thomas Wegner wrote: > >Hello All: > > > >I have done what I could. I deleted and corrected as guided. It is > >still showing > >error. I will be thankful for your help which I am unable to find. Thanks > >I hope I have been able to present my difficulties correctly. > > > >Thanks > > > >Amitava > > Hi Amitava, > > 1. (Error 1) Replace the hash identifier 'registration-data' with > 'registration_data' (Perl thinks > you are doing a substraction) > > 2. Either use $registration_data{"FirstName"} $registration-data{"LastName"} or > $registration_data{"First Name"} $registration-data{"Last Name"} , but not > both if you mean the same thing (note the additional space) > > 3. (Error 2) You've used the statement print<<"EOP"; two times, but > I see only one here-doc terminator. > I've replaced the first 'EOP' with 'HEAD' in the corrected > script, see below. > > 4. Replace $Registration_Type = "Submit Registration"} with > $Registration_Type = "Submit Registration"; on #line 33 > > 5. HTML error(missing <) on #line 46 > > 6. Add a curly bracket on #line 85 (if-statement) > > 7. Generally, use a more readable coding style: use tabs, spaces, > indents etc. and sometimes > a comment :). This will help you to detect errors more easily. > > And here is the corrected script, which should compile without syntax errors: > ___________ > > #!/usr/local/bin/perl -w > push (@INC,"/usr/localbusiness/http/accn.com/cgi-bin"); > require("cgi-lib.pl"); > print &PrintHeader; > > &ReadParse(*registration_data); > print << "HEAD"; > <html> > <head> > <title>Aztec Registration Form</title> > </head> > <body> > HEAD > > if (length($registration_data{"FirstName"}) > 0 && > length($registration_data{"LastName"}) > 0) { > print<<"EOP"; > <h3> > Thank you $registration_data{"FirstName"} $registration_data{"LastName"} > for registering your name with Aztec. You will now verify the > information entered in the form. Please Correct if necessary</h3> > EOP > > $Registration_Type = "Confirm Registration Data"; > print "<ul>"; > foreach $var ( keys (%registration_data) ) { > if ( length($registration_data{"$var"} ) == 0) { > print "<li>Your<em>$var</em>will be used to help confirm > your order > Please fill in the <em>$var</em>field"; > }#if > }#for > print "</ul>"; > } else { > $Registration_Type = "Submit Registration"; # line 33 > if (defined($registration_data{"Phone Number"})) { > $PhoneNumber=$registration_data{"Phone Number"}; > } else { > $PhoneNumber="(999) 999-999"; > }#if > > print <<'TEST'; > <hr noshade> > <center> > <Form Method=POST Action="/cgibook/regs.cgi"> > <input type=hidden name=SavedName > value="registration_data{'FirstName'}$registration_data {'LastName'}"> > <table border=0 width=60%> > <caption align = top><h3>Aztec Registration Form</h3></caption> #line 46 > <th ALIGN LEFT>First Name > <th ALIGN LEFT colspan=2>LastName<tr> > <td> > <input type=text size=32 maxlength=20 > name="First Name" value=Registration data{"FirstName"}> > <td colspan=2> > <input type=text size=32 maxlength=40 > name="Last Name" value=$registration_data{"LastName"} ><tr> > <th ALIGN=LEFT colspan=3> > Street Address <td><td><tr> > <td colspan=3> > <input type=text size=61 maxsize=61 > name"Street" value:$registration_data {'Street'}"><tr> > <th ALIGN LEFT>City > <th ALIGN LEFT>State > <th ALIGH LEFT>Zip <tr> > <td><input type =text sixe=20 maxlength=30 > name=="City" value="$registration_data{'City'}"> > <td><input type =text sixe=20 maxlength=20 > name=="State" value="$registration_data{'State'}"> > <td><input type =text size=5 maxlength=10 > name=="Zip" value="$registration_data{'Zip'}"><tr> > <th ALIGN=LEFT colspan=1>Phone Number > <th ALIGN=LEFT colspan=2>E-Mail Address<tr> > <td colspan=1><input type=test size=15 maxlength=15 > name="Phone Number" value="$PhoneNumber"> > <td colspan=2><input type=test size=32 maxlength=32 > name="E-Mail Address" value={"$EmailAddress"} ><tr> > <td width=50%><input type="submit" name="simple" value=$Registration-Type> > <td width=50%><input type="reset"><tr> > </table> > </FORM> > </center> > <hr noshade> > </body> > </html> > TEST > > }#if #line 85 > > __END__ > > HTH. > > Best regards, > > --Thomas # ===== Want to unsubscribe from this list? # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org