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;

Answer 2

当您阅读答案时，您还会得到最后的换行符。在比较之前，您需要将其从输入中删除。您会看到，如果您在输出周围加上引号：

print "Heads or tails? ";
my $guess = <>;
print "Your guess is '$guess'\n";

这将从输入中删除所有空格，这在您的情况下应该有意义：

$guess =~ s/\s*//mg;

不相关，但可能会让您感到困惑 --- 您

print "The right answer is ", $guess;

可能在它应该在的地方

print "The right answer is ", $answer;

最后，永远style，声明变量并始终将其放在脚本的顶部：

use strict;
use warnings;