Foro - Perl en Español

por **Mono_Ezpacial** » 2012-10-29 12:35 @566

Hola, ¿qué tal?

Hace poco estaba haciendo un programa que permitiera agregar y luego mostrar algo, como por ejemplo, animales (siempre los utilizo para ejemplos n_n)

Mi idea es que cuando el usuario escriba:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

add perroColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

el programa cree una variable automáticamente y luego muestre

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "add perro";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

(como una confirmación del programa que se ha agregado la variable satisfactoriamente, y que allí quede perro, pero no tengo la mas mínima idea de cómo hacerlo, no creo que sea muy difícil, también me gustaría que funcionara con números. Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

add 123Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Es posible hacer eso, que el usuario cree variables mientras se ejecuta el programa?

Gracias de antemano

#!/usr/bin/perl
 
my $entrada;
my @animales;
 
do {
    print "Introduce el nombre de un animal ('fin' para terminar): ";
    chomp($entrada = <>);                                    # lees desde el teclado y quitar carácter fin de línea
 
    push @animales, $entrada if $entrada ne 'fin';           # si no es 'fin', guardamos la $entrada en @animales
 
} while $entrada ne 'fin';                                   # repetimos mientras no lleguemos al 'fin'
 
print "Animales introducidos: ", scalar(@animales), "\n";
 
for my $animal (@animales) {                                 # para cada $animal del grupo de @animales
    print "\t$animal\n";
}
 
print "$animal[2]\n";                                        # tercer animal
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Mono_Ezpacial** » 2012-10-30 13:07 @588

Ok, sí, ya lo probé y sí funciona, voy a acomodarlo a mi código anterior, ¡Gracias y Saludos!

por **Mono_Ezpacial** » 2012-11-01 22:46 @990

Hola bro, me funcionó de maravilla tu código. pero lo que pasa es que quiero que no se ejecute el while (bucle) hasta escribir la palabra 'fin', solamente quiero que ponga un animal y ya. Otro problema que me surgió fue al momento de mostrar las cosas que he puesto no salen. Gracias, bro. Si no es mucha molestia me podrías ayudar a solucionar los dos problemitas que tengo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $jaka = 0;
do {
    print "animal:  > ";
    $canes   = "-animal";
    $help    = "help";
    $clear   = "clear";
    $exit    = "exit";
    $add_can = "add animal";
    chomp( $usr = <> );
 
    if ( $usr eq $add_can ) {
        my $entrada;
        my @canadded;
        do {
            print "\t [+]Introduce una mascota: ";
            chomp( $entrada = <> );
            push @canadded, $entrada if $entrada ne 'fin';
        } while $entrada ne 'fin';
        if ( scalar(@canadded) eq '0' ) {
            print "\n [*]La mascota fue añadida correctamente\n";
        }
        else {
            print "\n[*]Las Mascotas fueron añadidas correctamente\n";
        }
    }
    elsif ( $usr eq $canes ) {
        system("clear");
        print "\n\nTotal de mascotas: ", color("green"), scalar(@canadded), "\n", color("reset");
        print color("green"), q{
        MASCOTAS
    =================  
        }, color("reset");
        use Term::ANSIColor;
 
        print "$animal[2]\n";
        for my $animal (@canadded) {
            print "\t$animal\n";
        }
    }
    elsif ( $usr eq $help ) {
        print "ayuda\n";
    }
 
    elsif ( $usr eq $clear ) {
        system("clear");
    }
    elsif ( $usr eq $exit ) {
        exit(0);
    }
 
    else {
        print color("red"), "\t[-]", color("reset"), " Unknown command = $usr ??\n";
    }
} until $jaca;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-11-02 07:49 @367

Si no quieres el bucle, solo tienes que quitarlo.

Quita las líneas 15 y 19. Y quita la parte del if() de la línea 18.

En cuanto al segundo problema, mueve la línea 14 después de la 2.

Como lo tienes ahora, estás recreando la variable @canadded cada vez que se mete un animal nuevo, por lo que siempre contiene un solo animal, y es siempre el último introducido. Los anteriores son olvidados en la línea 26, cuando acaba el contexto en que declaraste esa variable.

Foro - Perl en Español

Cómo crear variables mientras se ejecuta un programa

Cómo crear variables mientras se ejecuta un programa

Publicidad

Re: Cómo crear variables mientras se ejecuta un programa

Re: Cómo crear variables mientras se ejecuta un programa

Casi acabo, ¡ayuda! :D

Re: Cómo crear variables mientras se ejecuta un programa

¿Quién está conectado?