字符串比较神秘失败

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;.这样你就会收到这种操作的警告.它还可以帮助您解决拼写错误的变量.