perl - 字符串比较神秘地失败了

Question

可能重复：
如何在 Perl 中比较两个字符串？

为什么这个脚本总是返回“你赢了”？

print "Choose heads or tails :\n";
$answer = <STDIN>;
chomp $answer;

if( $answer == "heads" ) {
    print "You won\n";
}
else {
    print "Moron! You lost.\n"
}

正确的代码应该是什么？

Answer 1

Perl 中的字符串比较eq使用==. 尝试：

if ($answer eq "heads")

如果您要比较数字，则使用==.

在perlmonks 的帖子中阅读更多相关信息。

在学习 Perl 时，我建议您使用use strict;和开始您的脚本use warnings;。这样，您将收到此类操作的警告。它还将帮助您处理拼写错误的变量。