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

[Luis Rodrigo Gallardo Cruz]

>>>>> "Luis" =3D=3D Luis Medrano Zaldivar <aldus@todito.com> writes:

    Luis> Lista, tengo esto en mi script:

    Luis> my $loco=3D empleado::sueldo->nuevo('Gustavo perez', 'Manager,
    Luis> Web Development', '111-1111', 50000); my $incongruente=3D
    Luis> empleado::sueldo->nuevo('Sven Abrams', 'Manager',
    Luis> '111-1111', 50000); my $atenido =3D
    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=E9todo 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} =3D $self

adentro de la rutina. O

        $emp->set_jefe($self)

si hay un m=E9todo para ello.

=BFPor que no te sale?

--=20
Rodrigo Gallardo