http://www.perlmonks.org?node_id=316415

   1: #   Howdy! This is my very first Perl script! I know it's kinda short
   2: #   but any response would be great. What I am trying to do next is to make 
   3: #   it in a CGI/HTML format to put on a web page. Hints anyone?
   4: 
   5: 
   6: 
   7: #!/usr/local/bin/perl -w
   8: 
   9: print "Guess the number.";
  10: print "DIRECTIONS:\nGuess a number between 1 and 100 inclusive.\n\n";
  11: $random = int(rand(100)+1);      # I added 1 to the random
  12:                                  # number generator to push the
  13:                                  # possible numbers from 0-99 to 1-100
  14: 
  15: for ($try=6;$try>0;$try--){      # $try is the number of tries you get (DUH!)
  16:     print "You have 1 try left. Use it wisely!\n\n" if($try ==1);
  17:     print "You have $try tries left.\n\n" if($try !=1);
  18:     print "What is your guess? -->";
  19:     do {
  20:         $guess = <STDIN>; chomp $guess;
  21: 
  22:      }while (!$guess);
  23:     print "HA! HA! too HIGH.\n" if ($guess>$random);
  24:     print "OH! NO! too LOW.\n" if ($guess<$random);
  25:     if ($guess==$random){
  26:         print "'Bout time you guessed it.   Stupid head.\n\n" ;
  27:         exit;
  28:     }
  29: }
  30: print "The answer was $random. And so is your IQ.\n\n\nSTUPID!!\n\n";
  31: exit;
  32: 
  33: 
  34: ############################################################
  35: #           UPDATED --- 1/11/03                            #
  36: #  NOTE: the problem with this is that it loops            #
  37: #  printing the button text box ect. w/o giving you a      #
  38: #  chance to guess. Still a work in progress.              #
  39: #  Any generous monk out there willing to give me a        #
  40: #  little nudge?                                           #
  41: ############################################################
  42: 
  43: 
  44: 
  45: #!/usr/local/bin/perl -w
  46: 
  47: print "Content-type: text/html\n\n";
  48: use CGI;
  49: $query = new CGI;
  50: print "<HTML><HEAD><title>Guess the number.</title></HEAD><BODY>";
  51: print "<H1>DIRECTIONS:\nGuess a number between 1 and 100 inclusive.\n\n</H1>";
  52: $random = int(rand(100)+1);
  53: 
  54: for ($try=6;$try>0;$try--){
  55:     print "You have 1 try left. Use it wisely!\n\n" if($try ==1);
  56:     print "You have $try tries left.\n\n" if($try !=1);
  57:     print "What is your guess? -->";
  58:     print '<INPUT TYPE="text" NAME="guess">';
  59:     print '<INPUT TYPE = "submit">';
  60:     print "HA! HA! too HIGH.\n" if ($guess>$random);
  61:     print "OH! NO! too LOW.\n" if ($guess<$random);
  62:     if ($guess==$random){
  63:         print "'Bout time you guessed it.   Stupid head.\n\n" ;
  64:         print"</BODY>";
  65:         exit;
  66: #         print "The answer was $random. And so is your IQ.\n\n\nSTUPID!!\n\n";exit;
  67:     }
  68: }
  69: print "The answer was $random. And so is your IQ.\n\n\nSTUPID!!\n\n";
  70: print"</BODY>";
  71: exit;