Question

我是一个非常棒的人，希望这个问题不是太愚蠢！

我正在尝试编写一个刽子手风格的游戏并让它全部工作，除了由于某种原因STDIN似乎在while循环的其余部分之前执行 - 所以我被迫输入我之前的所有字母猜测什么都打印出来

while()
{
    foreach $letter (@currentword)
    {
        print "$letter";
    }
    print "\n";
    print "Guess a letter: \n";
    chomp($guess = <STDIN>);
    $guess=lc(substr($guess,0,1));  
    if ( $randword =~ /($guess)+/i )
    {
        print "Correct!\n";
        for ($index=0; $index<$wordlength; $index++)
        {
            if ($wordarray[$index] eq $guess)
            {
                $currentword[$index]=$wordarray[$index];
            }
        }       
    }
    else
    {
        print "Incorrect! try again\n";
    }   
    $guesses -= 1;
    last if $guesses < 1;
    $finalword = join("",@currentword);
    last if ($finalword eq $randword);  
}

Answer 1

您的STDOUT必须连接到终端以外的其他设备，导致使用块缓冲而不是线路缓冲。尝试添加

$| = 1;

（我认为从STDIN读取会导致STDOUT被刷新。）

Perl STDIN在while循环之前执行

1 个答案: