[perl] Pregunta sobre Ciclo.

[Agustin de Jesus Astorga de Riquer]

Buenos dias a todos los compa&eros de la lista una pregunta:

Como antecedente soy mas que novato en Perl y estoy haciendo por gusto y
por aprender un peque&o programa en Perl, el cual es un simple programa de
validacion mediante una forma en que se solicita el identificador de la
persona, este identificador lo tengo en un arreglo, en otra seccion del
programa tengo otro arreglo asociativo (perdonenme si al escribir equivoco
los conceptos y cometo  aberraciones), en dicho arreglo tengo el
identificador y el nombre del usuario (para darle un toque personal),
ya logre que funcionara y validara, el problema que tengo es que el ciclo
lo hago con un foreach y quisiera mandar un mensaje X cuando no se haga la
validacion y hasta el momento no me funciona, solo funciona bien para el
primer usuario de la lista, si lo pongo de forma correcta me mada "usuario
aceptado", pero si pongo el segundo usuario de la lista, me manda primero
un "usuario rechazado" y despues un "usuario aceptado" y asi me voy

La seccion de mi programa es:


#####################################
foreach $i (@usuario){
if ($identificador eq $i){
&cabeza;

&validasi;

&cambianombre;

&reporte;
&pie;
}
else {
&cabeza;
&validano;
&pie;
}
}
######################################

en el que las rutinas Cabeza y pie son el header y el footer de mi pagina,
la rutina cambianombre es:

sub cambianombre {
        if ($identificador eq $i){
        print qq(Bienvenido $nombreusuario{$i}!);
        }
}
#######################################

Y mis arreglos son:

@usuario = ("usuario1" , "usuario2" ,
"usuario3");
%nombreusuario = ('usuario1' , 'Hugo',
                        'usuario2' , 'Paco',
                        'usuario3' , 'Luis');
############################################


Como veran en mi ciclo tengo un if que es donde realmente comparo, el
problema lo tengo en el else y sinceramente no se por donde le pueda dar.

Ojala puedan orientarme.

Mil gracias de antemano.

Atte. Agustin Astorga

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