Date: Fri, 15 Jun 2001 15:41:09 -0500 (CDT) 3:41 PM From: Mark Jacobson To: 810-088-05@uni.edu Subject: PERL CGI assignment #1... Hi PERL students, Are you checking out all the examples on the 810:008 web page at http://www.cns.uni.edu/~jacobson/c088.html ????? Only 7 out of 17 students have checked the page that requires you to use your userid and password! Have you used the http://www.cns.uni.edu/~jacobson/PW.html link yet and read all the material on that page and looked up information about the Password Box on page 88 of Elizabeth Castro yet???? Send me an email if you lost or forgot or did not get your password yet. ----------------------------------------------------------------------------- YOUR FIRST PERL/CGI WEB PROGRAMMING ASSIGNMENT ----------------------------------------------------------------------------- 1. Study the Listing 2.2 Complete Source of the Interest Program on pages 34 and 35 of Hour 2 of the Greg Perry textbook. We will compare that program to the cyl.cgi volume of a cylinder program that we did today in the hands-on lab class. Below, you will see the cyl.cgi program modified so that it is NOT a web based application, but a program anyone uses from the chaos or DOS or ICEMAN or COBRA or VIPER command line, or wherever they have PERL. You have the Interest Program on a handout from the Wednesday hands-on class too, but its in your textbook. 2. Here is cyl.cgi transformed into cyl.p, so that it is not web-based, but is like the Interest program on pages 34 and 35 of SAMS Teach Yourself Perl in 24 Hours by Greg Perry. #!/usr/bin/perl -w print "\nPlease enter the radius of the cylinder: "; $radius = ; chomp $radius; print "\n Enter the height of the cylinder: "; $height = ; chomp $height; $area = 3.14159 * ($radius ** 2) * $height; print "\n\nA cylinder with height $height and radius $radius " . "has area: $area \n\n"; ------------------------------------------------------------ Sample output of the above program (The file is named cyl.p) ------------------------------------------------------------ chaos:~/web/cgi-bin$ perl cyl.p Please enter the radius of the cylinder: 1 Enter the height of the cylinder: 10 A cylinder with height 10 and radius 1 has area: 31.4159 chaos:~/web/cgi-bin$ perl cyl.p Please enter the radius of the cylinder: 10 Enter the height of the cylinder: 2 A cylinder with height 2 and radius 10 has area: 628.318 3. Compare the above cyl.p program to cyl.cgi that we wrote and implemented in today's lab (along with the HTML page and FORM consisting of two Text Boxes and two buttons (Submit and Reset). <--- file name is area.html in web folder Calculate area of a cylinder using PERL and CGI

Area of a cylinder calculator and PERL/CGI demo

------------------- area.html has permissions chmod 644 area.html ------------------- --------------------------------------------- URL for above: http://student.cns.uni.edu/~venkman/area.html --------------------------------------------- Do the View Source command at that URL to see the HTML code online. I will add a link to the ~venkman/area.html code from ~jacobson/c088.html Perl course web page. 4. Here is the cyl.cgi code we wrote today in hand-on class, or else it is a close approximation to what we wrote. Note that the cyl.cgi file would be inside the cgi-bin folder, and cyl.cgi would have permissions 755, via chmod 755 cyl.cgi. ----------------- cyl.cgi with permissions 755 ------------------------------------------------------------------------ #!/usr/bin/perl -w use CGI ':standard'; print "Content-type: text/html\n\n"; $r = param('radius'); $h = param('height'); $area = 3.14159 * $r * $r * $h; print << "END-OF-HTML code"; # <---- See page 234 of Castro book # This is a nifty shortcut # called a here document... Area of the cylinder via Perl script

Area of cylinder via Perl script cyl.cgi

For cylinder with radius $r and height $h, the area is: $area

END-OF-HTML code ----------------------------------------------------------------------- "Perl has a nifty shortcut, cyptically called a here document, that can save you a lot of typing (and tedium). Page 234 of Elizabeth Castro ----------------------------------------------------------------------- # The above Perl script did not need any \n and didn't need a TON of "" # and ; and . and print statements, because of the HERE document # technique that was used. print "END-OF-HTML code"; <---- Signals start of HERE document END-OF-HTML code <---- The HERE document label 5. Make the Interest Calculator from pages 34-35 of Greg Perry into a web based and FORM submitted and PERL/CGI processed application. If you study the above non-web based cylinder area calculator and compare it to the web and FORM based cylinder area calculator, you will have a solid foundation for taking on the task of making the Interest Calculator program into a web/FORM/PERL/CGI based application. Send the URL for your form via email to jacobson @ cns.uni.edu or to jacobson @ uni.edu when you are done with your script. I will try it out online to make sure it works okay, but I want a printout of the Perl program next week too. Turn in your Perl script by Thursday, June 22nd in class. I will collect the Perl script printouts on that day in class. Type printers at the chaos prompt to learn how to print from chaos. ----------------------------- enscript -2r -dwrt112 cyl.cgi would print it on the WRT 112 ----------------------------- laser printer, in rotated or landscape mode, with two columns of print per page. Mark