Porcentaje de bases
Publicado: 2011-11-30 06:15 @302
Buenas, llevo toda la mañana y no me sale, me desespero. Me gusta Perl, pero cuando me salen las cosas, ¡ja,ja!
A ver, tengo este hash de hashes y tengo que sacar de un organismo y de la base que me pida el usuario el porcentaje de la base.
Dadme alguna idea. Gracias.
A ver, tengo este hash de hashes y tengo que sacar de un organismo y de la base que me pida el usuario el porcentaje de la base.
Dadme alguna idea. Gracias.
Using perl Syntax Highlighting
- print "¿Que quieres hacer:\n a)Imprimir todos los organismos por pantalla (pulsa a)\n b)Guardar la tabla en un fichero (pulsa b)\n c)Mostrar el porcentaje de bases de un determinado tipo que existen en un determinado organismo (pulsa c)\n" ;
- $respuesta = <STDIN>;
- chomp $respuesta;
- if ($respuesta =~ /a/){
- print @organismo;}
- elsif ($respuesta =~ /b/){
- print "¿Como quieres que se llame el fichero?";
- $txt = <STDIN>;
- chomp $txt;
- open (TABLA, ">$txt");
- print TABLA @tabla;
- close TABLA;}
- elsif ($respuesta =~ /c/){
- print "¿De qué organismo?";
- $organ = <STDIN>;
- chomp $organ;
- print "¿Y de qué base? (a, c, g o t)";
- $bas = <STDIN>;
- chomp $bas;
- }else {print "Error: vuelva a intentarlo e introduzca bien el caracter"}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4