字符串比較神祕失敗

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;啓動腳本。這樣你會得到這種操作的警告。它也將幫助你拼寫錯誤的變量。