Script started on Tue Apr 25 08:20:58 2000 <33 chaos:~ > ls *.perl if.perl <34 chaos:~ > perl if.perl Would you like to see a movie?Yes Yes before the Lowercase escape. yes after the Lowercase escape performed. That will be $7.50 please. ------------------------------ if.perl program -------------------------- #!/opt/bin/perl -w print "Would you like to see a movie?"; $answer = <>; chomp $answer; print "$answer before the Lowercase escape.\n"; # \L converts all of the # following LETTERS to $answer = "\L$answer"; # lowercase letters... print "$answer after the Lowercase escape performed.\n"; if ($answer eq 'yes') { print "\n\nThat will be \$7.50 please.\n\n"; } elsif ($answer eq 'no') { print "\n\nOK, but you are missing a good one!\n\n"; } else { print "\n\nHuh???\n\n"; } --------------------------------------------------------------------------- <35 chaos:~ > perl hello.cgi Hello World 1 29 424 ------------------------------- hello.cgi -------------------------------- print "Hello World\n\n"; print 13 & 17; print "\n\n"; print 13 | 17; print "\n\n"; print ((134*2^24 + 161*2^16 + 243*2^8 + 2) & (255*2^24+255*2^16+252*2^8+0)) * 2^10; print "\n\n"; -------------------------------------------------------------------------- <36 chaos:~ > ls *.cgi hello.cgi helloPanthers.cgi perl1.cgi read.cgi <37 chaos:~ > perl perl1.cgi Hello World Glad to meet you Goodbye World ------------------------------ helloPanthers.cgi --------------------- helloPanthers.cgi print "Hello World\n\nGo UNI Panthers\nVolleyball at home tonight!\n\n" ----------------------------------------------------------------------- <38 chaos:~ > perl helloPanthers.cgi Hello World Go UNI Panthers Volleyball at home tonight! <40 chaos:~ > cd web <41 chaos:~/web > ls *.cgi c022.cgi getAnswers.cgi* random.cgi* c023.cgi* greeting.cgi* readme.cgi* c023Apr21.cgi* hello.cgi* testCounter.cgi* <42 chaos:~/web > perl random.cgi <---- YOU HAVE random.cgi as Thursday, ---------- August 31st handout. Content-type: text/html