print "Content-type: text/html";
use CGI;
$query = new CGI;
print "<HTML><HEAD><title>Guess the number.</title></HEAD><BODY>";
print "<H1>DIRECTIONS:<br>Guess a number between 1 and 100 inclusiv
+e.\n\n</H1>";
$random = int(rand(100)+1);
for ($try=6;$try>0;$try--) {
print "You have 1 try left. Use it wisely!<br>" if($try ==1);
print "You have $try tries left.<br>" if($try !=1);
print "What is your guess? --><br>";
print '<INPUT TYPE="text" NAME="guess">';
print '<INPUT TYPE = "submit"><br>';
print "HA! HA! too HIGH." if ($guess>$random);
print "OH! NO! too LOW." if ($guess<$random);
if ($guess==$random){
print "'Bout time you guessed it. Stupid head.<br><br>" ;
print"</BODY>";
exit;
# print "The answer was $random. And so is your IQ.\n\n\nSTUPID
+!!\n\n";exit;
}
}
print "The answer was $random.<br> And so is your IQ.<br><br><br>STUPI
+D!!";
print"</BODY>";
exit;
There we go patty k... much cleaner.. htmled up even, the \n was doing NOTHING so I changed it to: <br>
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|