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>
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
