Perl 简单的正面或反面游戏

Question

我正在尝试用 perl 制作一个简单的正面或反面游戏。但无论答案是否正确，它都告诉我我输了。我只是错过了一些基本的东西吗？任何帮助将不胜感激。

print "Heads or tails?";
$guess = <>;
print "Your guess is ",$guess;
$randNum = int(rand(10));

if ($randNum % 2 ==0){
    $answer = "heads";
} else {
    $answer = "tails \n";
}

print "The right answer is ", $guess;
$c = $guess eq $answer;
if ($c == 1){
    print "you win!";
} else {
    print "you lose";
}

Answer 1

$c = $guess eq $answer;

这将考虑您答案中的确切字符串，并且您的答案有一半时间有换行符，两次都是您的猜测。 1 个答案后还有一个空格。

例如，假设您猜“正面”，那么您的$guess 字符串将是:

$guess = "heads\n";   # newline added when reading with <>

你的答案可能是以下之一

$answer = "heads";
$answer = "tails \n";

那么让我们比较一下那些...

# start    end
# |heads\n|
# |heads|
# |tails \n|

如您所见，eq 为真的唯一可能方式是您猜测 “tails”，其中包含一个空格。

您需要做的是清理您的输入，并且您的答案中没有任何换行符。

例如:

chomp(my $guess = <>);    # remove newline from input
...
$answer = "heads";
...
$answer = "tails";

您还可以去除空格并使字符串大小写相同。

$guess =~ s/\s//g;      # strip whitespace
$guess = lc($guess);    # make lowercase

此外，请注意，在不使用这两个编译指示的情况下编写 Perl 代码会使您的生活变得异常艰难，因此请始终包含它们:

use strict;
use warnings;