字符串比较神秘失败

Question

  

可能重复：
  How do I compare two strings in 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;启动脚本。这样你就会收到这种操作的警告。它还可以帮助您处理拼写错误的变量。