Guessing Game

	Print
	Email

Submitted on: 10/4/2002 8:02:49 PM
By: Jason DeLuca
Level: Beginner
User Rating:

By 1 Users
Compatibility:5.0 (all versions)

Users have accessed this code 1564 times.

(About the author)

This is a Guessing game written in Perl. It is fairly simple if you have a concept of Perl and html. Enjoy, please rate me!

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!


    =**************************************
    = for :Guessing Game
    =**************************************
    Feel Free to use

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


    =**************************************
    = Name: Guessing Game
    = Description:This is a Guessing game wr
    =     itten in Perl. It is fairly simple if yo
    =     u have a concept of Perl and html. Enjoy
    =     , please rate me!
    = By: Jason DeLuca
    =
    = Side Effects:May need to change addres
    =     s to Perl on first line
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=378&lngWId;=6    =for details.    =**************************************
    
    #!C:\Perl\bin\perl.exe
    # Description: Guessing Game
    use CGI qw(:standard);
    print header;
    print start_html('A Guessing Game'),
    h1('A Guessing Game'),
    	h3('Pick A Number, If Your Right, you Win!'),
    	h4('1-50'),
    start_form,
    "What's your Guess? ",textfield('num'),
    p,
    submit,
    end_form,
    hr;
    if (param()) {
    $num = param('num');
    	$ans = int(rand(50));
    	$result = abs($ans-$num);
    if ($num == $ans) {
    		print "You Got It!"
    		}
    	else {
    	print 
    	"The Answer was ",$ans,
    	p,
    	"Your Guess Was ",$num,
    	p,
    	"You Were ",$result," Off",
    	hr;
    	}
    }
    print end_html;

Other 1 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

3/7/2003 11:24:41 AM:

i havent used this program yet, but i 
will and
i will give you feedback.  I 
just want
to know where to find the 
matching html.
from Seminole State 
College

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.