Foro - Perl en Español

por **Peich69** » 2013-03-20 15:52 @703

Hola,

Como es el primer mensaje que escribo lo primero será presentarme. Soy un proyecto de microbiólogo que quiere dedicarse a la bioinformática, pero mis conocimientos son nulos.

He leído el tutorial básico del foro y he empezado a hacer algunas cosillas con variables escalares.

He hecho este código y me ha salido bien:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "¿Cuantos años tienes?\n";
$edad = <STDIN>;
if ($edad < 18) {
print "Eres menor de edad \n";
} else {
print "Eres mayor de edad \n";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Pero al intentarlo con nombres no hay manera.

Este no funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Como te llamas? \n";
$nombre = <STDIN>;
$respuesta = Juan;
if ($nombre eq $respuesta) {
print "Bienvenido \n";
} else {
print "Aceso denegado \n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y la verdad, no entiendo por qué.

He buscado por el foro y no encuentro nada relacionado con esto, supongo que es demasiado chorras.
Pues eso, que agradecería mucho si alguien me puede responder a la primera de mis, probablemente, muchas dudas.
Gracias.

Bienvenido a los foros de Perl en Español, Peich69.

A la hora de leer desde el teclado debes tener en cuenta que lo que te devuelve el operador diamante (<STDIN>) es todo lo que ha introducido el usuario, incluido el carácter (o caracteres) de nueva línea (el usuario pulsó la tecla de Entrar en el teclado, para indicarle al programa que ha terminado de escribir la entrada que quiere enviarnos.

Entonces, lo primero que se suele hacer dentro de un programa, es quitar ese carácter (o caracteres), del final de la cadena de texto que acabamos de leer.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
 
print "¿Cómo te llamas? ";
$nombre = <STDIN>;
chomp($nombre);                            # quitamos los caracteres de nueva línea del final, si están
 
$respuesta = 'Juan';                       # las cadenas de caracteres constantes las ponemos con comillas simples
 
if ($nombre eq $respuesta) {
    print "Bienvenido $respuesta\n";
}
else {
    print "Acceso denegado\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Peich69** » 2013-03-21 00:34 @065

Muchas gracias.

Entonces debo entender que si la variable escalar es una cadena de texto (constante) el carácter de nueva línea es interpretado como parte de esta cadena, pero si es numérico, el interprete entiende que es un número y no lo tiene en cuenta, ¿no?

Porque este programa se ejecuta correctamente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "¿Contraseña?\n";
$pass = <STDIN>;
if ($pass == 1983) {
print "Bienvenido \n";
} else {
print "Acceso denegado \n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-03-21 07:14 @343

El operador '==' es numérico, así que las dos partes de la comparación deben ser numéricas. Si alguna de ellas es una cadena de caracteres normal, Perl primero hace una conversión a número. Ese proceso de conversión comienza leyendo la cadena de caracteres desde la izquierda, intentando encontrar algún dígito, y se para cuando se acaba la cadena o se encuentra con algún carácter que ya pueda ser convertido a dígito. Comienza la conversión a número, y todo lo demás es descartado (incluido los caracteres de finales de línea).

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $portal = "32 Puerta de San Andrés, Bogotá\n";
 
if ($portal == 32) {
    print "Estamos en el portal número 32\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Peich69** » 2013-03-28 15:43 @696

Ok, gracias

Foro - Perl en Español

Problema con el if else

Problema con el if else

Publicidad

Re: Problema con el if else

Re: Problema con el if else

Re: Problema con el if else

Re: Problema con el if else

¿Quién está conectado?