¿Por qué no puedo hacer coincidir mi cadena de entrada estándar en Perl?
¿Por qué mi script no funcionará correctamente?
Sigo un video de YouTube y trabajé para el chico.
Estoy ejecutando Perl en Windows usando ActiveState ActivePerl 5.12.2.1202
Aquí está mi pequeño bloque de código pequeño.
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";
}
El código salta automáticamente a la instrucción else y ni siquiera verifica la instrucción if.