Foro - Perl en Español

por **Mono_Ezpacial** » 2012-11-10 11:33 @523

¿Hola? ¿qué tal?
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:

Sintáxis: [ Descargar ] [ Ocultar ]

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.006 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:

Sintáxis: [ Descargar ] [ Ocultar ]

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
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Ahora escribimos

Sintáxis: [ Descargar ] [ Ocultar ]

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

Sintáxis: [ Descargar ] [ Ocultar ]

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:

Sintáxis: [ Descargar ] [ Ocultar ]

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!

Observa que he quitado los espacios en blanco de la línea 24.

Lo que hacemos es recorrer los índices del array @animadd, con la variable $i. Y como suponemos que deben coincidir los elementos entre los dos arrays, pues usamos ese índice para sacar los elementos de cada array, por parejas.

Los índices de un array van desde el 0 hasta el valor del último índice posible, que obtenemos poniendo el sigilo '$#'. Así, yendo de 0 a $#animadd estamos recorriendo todos los índices.

por **Mono_Ezpacial** » 2012-11-10 12:44 @572

¡Wow! Gracias, explorer. ¡Una vez más me salvaste! ¡un saludo, bro!

por **explorer** » 2012-11-10 14:23 @641

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use Term::Menu;
use Term::ANSIColor ':constants';
$Term::ANSIColor::AUTORESET = 1;
 
system("clear");
 
my @animales;
my $respuesta;
my $menu = Term::Menu->new(
                beforetext      => "\nEscriba una opción.",
                aftertext       => 'Animals > ',
);
 
do {
    $respuesta = $menu->menu(
                    add => [ 'Añadir animal',   'a' ],
                    list=> [ 'Listar animales', 'l' ],
                    cls => [ 'Borrar pantalla', 'c' ],
                    exit=> [ 'Salir',           '0' ],
    );
 
    if ($respuesta eq 'list') {
        system("clear");
        say "\n\nTotal de animales: ", GREEN scalar(@animales);
        say CYAN "\tAnimales agregados"; 
        say CYAN "\t======================";
        say CYAN "\tNombre del animal      Descripción";
        say CYAN "\t-------------------    --------------";
 
        for my $i (0 .. $#animales) {
            printf "\t%-19s    %s\n", $animales[$i][0], $animales[$i][1];
        }
    }
    if ($respuesta eq 'add') {
        print BLUE "\t [*] ", RESET, 'Introduce un animal: ';
        chomp(my $nuevo = <>);
        print BLUE "\t [*] ", RESET, 'Agregar descripción: ';
        chomp(my $comm  = <>);
        
        push @animales, [ $nuevo, $comm ];
 
        say GREEN "\t [+] ", RESET, 'El animal fue añadido correctamente';
    }
    if ($respuesta eq 'cls') {
        system("clear");
    }
 
} until $respuesta eq 'exit';
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Mono_Ezpacial** » 2012-11-12 01:15 @093

¡Excelente, bro! Lo haces muy bien, bro.

Me salieron dos dudas adicionales.

La primera, con respecto al programa anterior, ¿hay alguna forma de que los animales agregados se enumeren automáticamente? Sería algo así: El usuario agrega perro e inmediatamente a "perro" se le asigna el valor 1, Ok ¿Y para qué eso? Para poder jugar más fácil con ese objeto. La idea que tengo es que 'perro' sea igual a 1 y de igual forma 1 sea lo mismo que perro, y así sucesivamente con el resto de los objetos agregados.

Si nos damos cuenta esa información se guarda en un array, ¿se agranda el lio en este caso?
Espero que no.

Ok, la segunda es cómo hago para que el programa ejecute unas líneas anteriores. Un ejemplo:
Estamos en un hospital y los pacientes necesitan tomar un número para continuar en la camilla

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/perl/bin
my $final = 0;
my @turno;
do {
 
    print "Bienvenido al Hospital\n";
    print "Seleciona un número\n";
    chomp( $ficha = <> );              # aquí selecionamos un número cualquiera, ej.: 521
    push @turno, $ficha;
    print "Tu turno es el $turno[$i]\n";
} until $final;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero ¿qué pasa si tomas la misma ficha? Podría haber un caos. Esa es mi pregunta: ¿cómo podemos hacer que el programa se devuelva unas líneas atrás y vuelva a preguntar el número?

Esto fue lo que pude hacer para alertar del error al usuario, pero igual el usuario puede introducir el mismo número dos veces. Este es el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/perl/bin
my $final = 0;
my @turno;
do {
 
    print "Bienvenido al Hospital\n";
    print "Selecciona un número\n";
    chomp( $ficha = <> );              # aquí seleccionamos un número cualquiera, ejemplo: 521
    if ( @turno = @turno ) {
        print "El número ya está en uso\n";
 
    }
    else {
        print "\n";
    }
    push @turno, $ficha;
    print "Tu turno es el $turno[$i]\n";
} until $final;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Eso es todo.

También me gustaría saber si la forma en la que estoy programando es correcta.

¡Gracias y un saludo!

por **explorer** » 2012-11-12 10:13 @467

Mono_Ezpacial escribiste:¿hay alguna forma de que los animales agregados se enumeren automáticamente?
Si nos damos cuenta esa información se guarda en un array, ¿se agranda el lio en este caso?

De hecho, por usar un array, los elementos YA están numerados.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@animales=qw( perro gato caballo );# creamos y definimos un array

say $animales[1];# sacamos a pantalla el segundo animalColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Los elementos de un array están indizados numéricamente, contando a partir de 0 ('perro' está en $animales[0]).

Lo tienes todo muy bien explicado en perldata (¡lee!).

Mono_Ezpacial escribiste:La segunda es cómo hago para que el programa ejecute unas líneas anteriores. Un ejemplo:
Estamos en un hospital y los pacientes necesitan tomar un número para continuar en la camilla.

Pero ¿qué pasa si tomas la misma ficha? Podría haber un caos. Esa es mi pregunta: ¿cómo podemos hacer que el programa se devuelva unas líneas atrás y vuelva a preguntar el número?

¿Y por qué permitir al usuario escoger un número? Si somos el Hospital, nosotros le daremos ese número.

Solo tienes que hacer un bucle por todo el array, preguntando (if) si ese elemento está definido (defined). Si lo está, pasamos al siguiente elemento (hay un enfermo en esa posición). Si no, esa posición está vacía, así que metemos ahí al enfermo y terminamos el bucle.

Si, en cambio, queremos que sea el propio enfermo el que elija el número, entonces el algoritmo es:

Iniciamos un bucle (while, por ejemplo)
Le solicitamos el número
Comprobamos si existe ese número en el array de enfermos
Si sí está, el bucle continúa, para preguntarle por otro número distinto
Si no está, salimos del bucle y lo guardamos en el array

Mono_Ezpacial escribiste:También me gustaría saber si la forma en la que estoy programando es correcta.

Si el programa funciona, y el código es fácil de leer, entonces sí que es correcto. Vamos, conque funcione bien, vale (al ordenador le da igual si lo escribes feo, pero a ti no, si al cabo de unos meses, no sabes qué es lo que has escrito).

por **Mono_Ezpacial** » 2012-11-12 15:37 @692

Me he dado cuenta que en mi programa hay varios errores de ese tipo. Me preguntaba si existe alguna sintaxis que su función sea redirigir al usuario a la primera línea del programa. Creo que de esta forma ahorraría mucho tiempo, la sintaxis sería algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (expresion) {
    return to line 1
} else {
    print "Continue\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡ATENCIÓN! Sé que esa no es la sintaxis, es solo para ilustrar la idea.
Estuve buscando alguna sintaxis que hiciera algo similar, no la encontré.

Gracias por el perldata, lo estoy leyendo.

¡Saludos!

por **explorer** » 2012-11-12 17:52 @786

Ya te dije que con un while() lo puedes resolver:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $se_cumple_la_condicion = 0;
 
while( not $se_cumple_la_condicion) {
 
    # leemos datos
 
    # procesamos
 
    if (not expresión) {
        $se_cumple_la_condicion = 1;    # indicamos que queremos salir
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while( 1 ) {    # para siempre (bucle infinito)
 
    # leemos datos
 
    # procesamos
 
    if (not expresión) {
        last;                    # indicamos que queremos terminar el bucle, y se sale
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo mismo para do { } until():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

do {
 
    # leemos datos
 
    # procesamos
 
} until expresion;      # repetimos el bucle mientras la expresión sea falsa
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

O do {} while():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

do {
 
    # leemos datos
 
    # procesamos
 
} while expresion;      # repetimos el bucle mientras la expresión sea verdadera
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

También puedes usar una etiqueta y un goto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

BUCLE:
 
# leemos datos
 
# procesamos
 
if (expresión) {
    goto BUCLE;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero... si lo haces así, no obtendrás trabajo en ninguna empresa.

por **Mono_Ezpacial** » 2012-11-14 23:07 @005

Ok, Gracias por ayudarme en todas las dudas que he tenido. La verdad me fue de gran ayuda. Yn saludo y nuevamente gracias, explorer.

Foro - Perl en Español

Error en salto de línea

Error en salto de línea

Publicidad

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

Re: Error en salto de línea

¿Quién está conectado?