Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Re: Re: Re: Guess the number

by Mongo Job (Initiate)
on Feb 18, 2004 at 21:59 UTC ( #330077=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: Re: Guess the number
in thread Guess the number

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>


Comment on Re: Re: Re: Re: Guess the number
Select or Download Code
Re: Re: Re: Re: Re: Guess the number
by chip_creep (Acolyte) on Feb 24, 2004 at 04:14 UTC
    Dude! i tried a variation of this and it did the same thing...
    It prints it out $tries times then spits out the answer...

    What do a plum and an elephant heve in common??

    Look Ma, no hands!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://330077]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-12-22 02:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (110 votes), past polls