Exercise (Learning Perl, 3rd Edition)

10.10. Exercise

See Section A.9, "Answer to Chapter 10 Exercise" for an answer to the following exercise:

[25] Make a program that will repeatedly ask the user to guess a secret number from 1 to 100 until the user guesses the secret number. Your program should pick the number at random by using the magical formula int(1 + rand 100).[242] When the user guesses wrong, the program should respond "Too high" or "Too low". If the user enters the word quit or exit, or if the user enters a blank line, the program should quit. Of course, if the user guesses correctly, the program should quit then as well!

[242]See what the perlfunc manpage says about int and rand if you're curious about these functions.