Foro - Perl en Español

por **Mono_Ezpacial** » 2012-10-06 03:44 @197

Saludos. Bueno, como verán estaba programando e hice un script así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
$animals = "animals";
$help    = "help";
print "~>";
chomp( $usr = <> );
if ( $usr eq $animals ) {
    print "here animals!\n";
}
if ( $usr eq $help ) {
    print "Here the help\n";
}
else {
    print "$usr:command not found\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Todo me funciona bien, pero me falla una cosa: al escribir "animals" pasa esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

~ $ perl script.pl

~>animals

here animals!

animals:command not found
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como ven se ejecuta bien, pero sale abajo "animals:command not found", algo que no debería pasar porque es correcto lo que escribió el usuario. Por lo contrario con "help" sí funciona a la perfección.

Agradecería la ayuda de ustedes. ¡¡Gracias!!

use feature 'switch';  # a partir de Perl v5.10
given ($usr) {
    when ($animals) {
        print "here animals!\n";
    }
    when ($help) {
        print "Here the help\n";
    }
    default {
        print "$usr:command not found\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Mono_Ezpacial** » 2012-10-06 18:34 @815

Gracias brother, sí me funcionó. Esta web es de lo mejor, la recomendaré ¡Saludos!

Foro - Perl en Español

if y else (error)

if y else (error)

Publicidad

Re: if y else (error)

Re: if y else (error)

¿Quién está conectado?