perl - 文字列の比較が不思議なことに失敗する

Question

重複の可能性：
Perlで2つの文字列を比較するにはどうすればよいですか？

このスクリプトが常に「あなたが勝った」を返すのはなぜですか？

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;。そうすれば、この種の操作に対して警告が表示されます。また、変数のスペルミスにも役立ちます。