Foro - Perl en Español

por **mparrado8** » 2013-05-10 07:02 @335

No sé qué poner como título porque realmente no sé por qué no funciona el programa, más bien por qué no se ejecuta correctamente. Mi intención es que el bucle se repita mientras se introduzca un valor no válido, es decir: distinto de 'a', 'g', 'c' o 't'. Y haciendo diversos cambios lo único que hemos conseguido es: o que el primer dato introducido no lo reconozca como válido aunque lo sea, y el segundo sí aunque no lo sea, o que no reconozca ningún valor como válido.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($bas !~ [a,g,t,c]) 
{print "Introduzca un nucleotido valido: \n";
$bas = <STDIN>;
chomp ($bas);
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

my $bas;                                                # declaramos nuestra variable
 
while ($bas !~ /[ACTG]/i) {                             # mientras $bas no contenga, al menos una, de esas cuatro letras...
    print "Introduzca un nucleótido válido [ACTG]: ";   #  se lo pedimos al usuario
    $bas = <STDIN>;                                     #  lo leemos desde la entrada estándar
    chomp $bas;                                         #  le quitamos el final de línea
}
 
$bas = lc $bas;                                         # lo pasamos a minúsculas
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Los patrones de expresiones regulares deben estar rodeados por delimitadores. En este caso, los más sencillos son los '/', pero se pueden usar otros.

Le he puesto además la opción '/i', por si el usuario quiere meter la información tanto en minúsculas o mayúsculas. Más tarde, con la función lc(), lo pasamos siempre a minúsculas.

por **mparrado8** » 2013-05-12 12:56 @580

¡Jo, Muchísimas gracias! No sé que haría sin este foro.

Foro - Perl en Español

Problemas con bucle while

Problemas con bucle while

Publicidad

Re: Problemas con bucle while

Re: Problemas con bucle while

¿Quién está conectado?