Foro - Perl en Español

por **newperlero** » 2011-10-26 05:25 @267

¡Buenas!

Estoy teniendo problemas a la hora de usar un switch: dado un dato, debo realizar una u otra acción. El problema es que el dato a veces es 0, y cuando es cero, entra en when 0, pero me he encontrado que, ante una entrada defectuosa de un usuario o por cualquier otro motivo, si $var vale abc, entra en when 0, y luego en default.

¿Por qué está pasando esto?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

chomp(my $var=<STDIN>);
given($var){
        when(1){
                say "1";
        }
        when(2){
                say "2";
        }
        when(3){
                say "3";
        }
        when(0){
                say "0";
        }
        default{
                die "Y que hago yo con esto?";
        }
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al final lo pude arreglar buscando otra cadena en el código, pero la pregunta era simplemente para saber:

¿Por qué en el switch, si introducen 0 por STDIN, entra en when(0), pero si introducen otra cosa, también entra? ¿Por qué entra en when(0) cuando meto "casa", y no en when(1)?

Haciendo un switch, al declarar when(0), ¿esto tiene una connotación especial? Tenía entendido que para cualquier caso en el switch que no matcheara con ningún when() saldría por default{}, solamente.

por **explorer** » 2011-10-26 07:50 @368

Yo sospecho que, en la primera comparación numérica, el contenido de la variable es transformada en número, y la conversión de una cadena 'abc' a número, siempre es 0.

Una solución, entonces, es hacer comparaciones alfanuméricas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    chomp(my $var=<STDIN>);
    given($var){
            when('1'){
                    say "1";
            }
            when('2'){
                    say "2";
            }
            when('3'){
                    say "3";
            }
            when('0'){
                    say "0";
            }
            default{
                    die "¿Y qué hago yo con esto?\n";
            }
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya funciona.

por **newperlero** » 2011-10-26 08:30 @396

Touché. Tienes toda la razón.

Gracias, explorer

Foro - Perl en Español

Switch

Switch

Publicidad

Re: Switch

Re: Switch

Re: Switch

Re: Switch

¿Quién está conectado?