小编lah*_*die的帖子

我是一个Perl新手,试图找出为什么我的直到条件永远不会在一个基本的猜数游戏中评估为真.

#!/usr/bin/perl
# Ex 10-1

use warnings;

$num = int(1 + rand 100);
print "\$num is $num\n";                # Debug

print "I'm thinking of a number between 1 and 100. What number is it?\n";
until (chomp($guess = <STDIN>) == $num) {
    print "\$guess is $guess\n";        # Debug
    if ($guess =~ /\A\s*(quit|exit)?\s*\z/) {
        print "Exiting.\n";
        exit 0;
    } elsif ($guess =~ /\D/) {
        print "Invalid input. ";
    } else {
        ($guess < $num) ? (print ("Too low. ")) : (print ("Too high. …