[perl] Pregunta sobre Ciclo.

[Salman PSL]

Pues el problema esta claro, haces la comparacion todas las veces incluso
cuando encuentras al usuario.

Supongo que a otra gente se le ocurriran otras ideas, pero como yo soy muy
amigo de los "flags" o marcadores pues cambiaria la estructura por lo
siguiente:

 #####################################
my $encontrado=0;
 foreach (@usuario){
     if ($identificador eq $_){
        # aqui todas las rutinas que quieras para un usuario encontrado
        $encontrado =1;
        last;
 }
if ($encontrado == 0) {
    # aqui todas las rutinas que quieras para un usuario NO encontrado
 }
> ######################################


Saludos
Salvador Guzman
Salman PSL
Vigo, Galicia, Espaņa
+34 627-505-999
+34 986-21.30.27
correo@salman.net
http://salman.net/
http://salman.tivis.net/


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl