[Perl] Agregando datos a un arreglo usando classes (URGE AYUDA)

[Luis Medrano Zaldivar]

Lista,

Lo que pasa es lo siguiente..con esta ciclo:

for my $emp ($incongruente, $loco) { 

$atenido->set_report($emp); 
}

Ahi se asigna quien es el jefe de quien en este ejemplo fredo rodriguez es el jefe de todos. y ese es mi problema como le puedo hacer para que "set_report" pueda almazenar quien depende de quien...
No se si me explico.

Luis


> -----Mensaje Original-----
> Desde: Luis Rodrigo Gallardo Cruz [mailto:lgallardo@computacion.cs.cinvestav.mx]
> Enviado: Lunes 17 de Marzo de 2003 08:36 PM
> Para: 'Luis Medrano Zaldivar'
> Cc: perl-es@yahoogroups.com, perl@tlali.iztacala.unam.mx
> Tema: Re: [Perl] Agregando datos a un arreglo usando classes (URGE AYUDA)
> 
> >>>>> "Luis" == Luis Medrano Zaldivar <aldus@todito.com> writes:
> 
>     Luis> Lista, tengo esto en mi script:
> 
>     Luis> my $loco= empleado::sueldo->nuevo('Gustavo perez', 'Manager,
>     Luis> Web Development', '111-1111', 50000); my $incongruente=
>     Luis> empleado::sueldo->nuevo('Sven Abrams', 'Manager',
>     Luis> '111-1111', 50000); my $atenido =
>     Luis> empleado::sueldo->nuevo('alfredo rodriguez', 'jefe',
>     Luis> '111-1111', 80000);
> 
>     Luis> Donde mando llamar la classe empleado y subrutina nuevo. y
>     Luis> bueno todo jala de pelos.....ahora lo que necesito es
>     Luis> agregar a esos datos lo siguiente quien es el jefe de quien.
> 
>     Luis> para esto tengo esta ciclo:
> 
>     Luis> for my $emp ($incongruente, $loco) { $atenido
>     Luis> ->set_report($emp); }
> 
>     Luis> Pero mi pregunta es como le puedo hacer para que la
>     Luis> subrutina "set_report" pueda anexar esa informacion??...
> 
> No entiendo tu pregunta. Imagino que set_report es un método de los
> objetos empleado. En tal caso recibe dos argumentos: $self y $emp (o
> como les llames). Y basta con decir algo como
> 
>         $emp{jefe} = $self
> 
> adentro de la rutina. O
> 
>         $emp->set_jefe($self)
> 
> si hay un método para ello.
> 
> ¿Por que no te sale?
> 
> -- 
> Rodrigo Gallardo
> 

___________________________________________________
Todito Card, internet fácil y sin compromisos.
Todito Ilimitado, internet rápido, seguro y económico.