Por que não consigo corresponder minha string da entrada padrão no Perl?
Por que meu script não funcionará corretamente?
Eu sigo um vídeo do YouTube e trabalhei para o cara.
Estou executando o Perl no Windows usando o ActiveState ActivePerl 5.12.2.1202
Aqui está o meu minúsculo bloco de código.
print "What is your name?\n";
$name = <STDIN>;
if ($name eq "Jon") {
print "We have met before!\n";
} else {
print "We have not met before.\n";
}
O código salta automaticamente para a instrução else e nem verifica a instrução if.