in reply to Guess That Number

++ nice.
if ($answer !~ /\d+/) {
I think the following code better represents your intent: 
    if ($answer =~ /\D/) {

[download]

You only want someone to enter a positive integer. You don't want someone entering a number with letters or other characters in it, such as '123g'. This string slips through your regex test, then generates unnecessary warnings.

Replies are listed 'Best First'.
Re^2: Guess That Number
by naildownx (Beadle) on Jul 09, 2009 at 19:38 UTC
    toolic For a reason I haven't discovered yet, when I change it to D and remove the + sign it won't receive any number...can you get the same results?
    The early bird gets the worm but the second mouse gets the cheese.
    pretendeavor
[reply]
      When you update your original node, you should leave a note that you did so, and more importantly, you should first test that your updated code works.

      Here is the code that works for me. Note that it does not have jdporter's bug fix. 

      use strict;
use warnings;

my $low = 1;        #Current low limit
my $high = 1000;     #Current high limit

#This is the secret number...Add one because we 
#don't need to wind up with a zero now do we?
my $goal = int(rand($high))+1; 

while (1) {
    print "Enter a number between $low and $high: ";

    #The answer from the user
    my $answer = <STDIN>;
    chomp($answer);

    if ($answer =~ /\D/) {
        print "Please enter a number only\n";
        next;
    }
    if ($answer == $goal) {
        print "Holy cow! You guessed it!\n";
        exit;
    }
    if (($answer < $low) || ($answer > $high)) {
        print "Please stay between $low and $high.\n";
        next;    
    }
    if ($answer < $goal) {
        $low = $answer;
    } else {
        $high = $answer;
    }
}

      [download]
[reply]
[d/l]

In Section Cool Uses for Perl