Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Ya casi acabo mi programa, pero tengo un problema más. Ok, miren ustedes mi código, ya les digo cuál es el error:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- system("clear");
- use Term::ANSIColor;
- system("clear");
- print "\n";
- my $jaca = 0;
- my @animadd;
- my @coment;
- do {
- print "Animals > ";
- $animals__ = "--animals";
- $exit = "exit";
- $add_an = "add ani";
- chomp( $usr = <> );
- if ( $usr eq $animals__ ) {
- system("clear");
- print "\n\nTotal de animales: ", color("green"), scalar(@animadd), "\n", color("reset");
- print color("cyan"), q{
- Animales agregados
- ============================
- Nombre del animal Descripción
- ---------------------- ----------------
- }, color("reset");
- use Term::ANSIColor;
- for my $add_an_z (@animadd) {
- print "\n";
- print "\t$add_an_z";
- }
- print "\t$add_an_z[1]";
- for my $coment_an_z (@coment) {
- print "\t\t$coment_an_z\n";
- }
- print "\n\t\t\t\t$coment_an_z[1]\n";
- }
- elsif ( $usr eq $exit ) {
- exit(0);
- }
- elsif ( $usr eq $add_an ) {
- my $add_an_x;
- my $coment_an_x;
- print color("blue"), "\t [*]", color("reset"), "Introduce un animal: ";
- chomp( $add_y_x = <> );
- push @animadd, $add_y_x;
- print color("blue"), "\t [*]", color("reset"), "Agregar descripcion: ";
- chomp( $coment_y_x = <> );
- push @coment, $coment_y_x;
- if ( scalar(@animadd) eq '1' ) {
- print color("green"), "\t [+]", color("reset"), "EL animal fue añadido correctamente\n";
- }
- else {
- print color("green"), "\t [+]", color("reset"), "EL animal fue añadido correctamente\n";
- }
- }
- else {
- print "Unknown command = $usr\n";
- }
- } until $jaca;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Ok, si quieren prueben el código.
Bueno, se preguntarán qué hace esto. Pues bien, esto hace:
Using text Syntax Highlighting
Animals > add ani # Ok, ustedes escriben "add ani" y les saldrá una opción para agregar un animal y una pequeña descripción
Ahora escribimos
Using text Syntax Highlighting
--animals
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
para ver los animales agregados, Ok, no hay problema, te los muestra, pero ahora agrega otro animal, con el mismo procedimiento
Using text Syntax Highlighting
Animals > add ani
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Todo va de maravilla, Ok, pero ahora intenta ver los animales agregados de nuevo:
Using text Syntax Highlighting
--animals
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Y verán que las líneas se corren, no sé, es como un salto de línea creo yo, cuando lo hagan se darán cuenta, ya lo intenté modificándolo muchas veces, de lo contrario no pediría ayuda, sé que debe ser algo sencillo pero no veo la forma de reparar ese error.
Gracias y ¡un saludo!