为什么这个简单的 while 循环会导致无限循环？

Question

我有一个看起来很简单的问题，但由于某种原因我无法绕过它。基本上我的程序正在导致一个无限循环，我不知道为什么。

下面是我陷入的特定循环:

$response1 = false;
while($response1 == false){ 
     print "Input column #: ";
     $column = <STDIN>;
     chomp($column);
     if($column =~ m/^[0-9]+$/ and $column >= 0){ 
        $response1 = true; 
     } else {
        print "Invalid response\n";
     }  
}

当我运行它时，它总是问我输入列#。我给它一个数字，它接受这个数字，$response变为True，但while循环继续运行，就好像＜code＞的$response＜/code＞为false一样。我是Perl新手，所以可能我遗漏了一些东西，但是（$response==false）是否表明如果＜code＞要成为true，循环应该终止？

以下是整个代码供参考：

#!/usr/bin/env perl

#Input control
my $response1;
my $response2;
my $response3;
my $quit = false;

#User input
my $column;
my $row;
my $continue;

#result
my $result;

#pascal subroutine 
sub pascal{
    $r = $_[0];
    $c = $_[1];
        if($r == 0 and $c == 0){
        return 1;
    } else { 
        return (($r-$c+1)/$c)*&pascal($r,($j-1));   
    }
}

print "Pascal Triangle Calculator\n";

while($quit == false){
    $response1 = false;
    $response2 = false;
    $response3 = false;
    while($response1 == false){ 
        print "Input column #: ";
        $column = <STDIN>;
        chomp($column);
        if($column =~ m/^[0-9]+$/ and $column >= 0){ 
            $response1 = true; 
        } else {
            print "Invalid response\n";
        }   
    }
    while($response2 == false){
        print "Input row #: ";
        $row = <STDIN>;
        chomp($row);
        if($row =~ m/^[0-9]+$/ and $row >= 0){
            $response2 = true;
        } else {
            print "Invalid response\n";
        }   
    }
    $result = &pascal($row,$column);
    print "The number at row $row and column $column of the Pascal triangle is $result\n";
    while($response3 == false){
        print "Calculate another? y/n: ";
        $continue = <STDIN>;
        chomp($continue);
        if($continue == m/[yYnN]/){
            $response3 = true;
        } else {
            print "Invalid response\n";
        }   
    }    
    if($continue == m/[nN]/){
        $quit = true;
    }
}

print "Goodbye!\n";

Answer 1

正如评论中提到的，使用

use strict;
use warnings;

这将极大地帮助您，尤其是在不熟悉Perl时。虽然使用严格会迫使您整理代码。您代码中的问题可以通过使用警告pragma看到。如果我运行带有警告的代码，我会得到以下输出。

Argument "false" isn't numeric in numeric eq (==) at response_loop_test.pl line 4.
Argument "false" isn't numeric in numeric eq (==) at response_loop_test.pl line 4.

perl 中的 == 用于比较数值。与这样的字符串相比，不会产生预期的效果。相反，您应该使用 eq 来比较字符串相等性。

if ($response1 eq 'false')

这将确保字符串相等性的比较按预期工作。下面的链接描述了perl中的相等运算符http://perldoc.perl.org/perlop.html#Equality-操作员

如果左参数在数值上等于右参数，则二进制"=="返回true。

如果左参数在字符串方向上等于右参数，则二进制“eq”返回true。