Foro - Perl en Español

por **panterozo** » 2010-03-17 09:51 @452

Quería saber a través de algún ejemplo, cómo poder sobrecargar un constructor...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package Consulta;
 
sub new{
    my($class,$dato)=@_;
    my $self = {
           dato=> $dato
     };
    bless $self,$class;
    return $self;
}
 
 
sub new{
    my($class,$referencia_dato)=@_;
    my $self = {
           dato=> $referencia_dato
     };
    bless $self,$class;
    return $self;
}
 
sub operaciones{}...
 
package Main
 
....
my $variable = new Consulta("hola");
....
my $variable = new Consulta(\@un_arreglo);
...
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿Cómo el constructor de la clase Consulta sabrá a cuál entrar...? ¿O en Perl se debe realizar algún truco (como ya he visto muchos

) ?

Muchas gracias

package Consulta;
 
sub new{
    my($class,$dato,$referencia_dato)=@_;
    my $self = {
           dato=> $dato,
           arreglo=> $referencia_dato
     };
    bless $self,$class;
    return $self;
}
 
  
sub operaciones{}...
 
package Main
 
....
my $variable = new Consulta("hola");
...
my $variable = new Consulta(undef,\@un_arreglo);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Esta es la solución que adopté... poco elegante, pero solución. ¿Alguna otra idea de realizar el código no tan "trucado" o cohesionado?

por **explorer** » 2010-03-17 13:06 @587

Si la diferencia, entre las distintas llamadas, es -por ejemplo- el número de argumentos, podrías mirar el valor escalar de @_ dentro del método para saber a qué constructor nos referimos.

Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

subnew{
if(2==@_){
my($class,$dato)=@_;
my$self={

            dato =>$dato,
};
}
elsif(3==@_){
my($class,$referencia_dato)=@_;
my$self={

            dato =>$referencia_dato,
};
}

bless$self,$class;
return$self;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

(Sacado de Overloading en perl.com)

Humm... seguro que hay algún módulo Perl que permite hacer esto de forma más elegante.

por **kidd** » 2010-03-17 19:24 @850

explorer escribiste:Humm... seguro que hay algún módulo Perl que permite hacer esto de forma más elegante.

Sería interesante, yo no conozco un módulo que haga algo parecido.

Por lo menos yo uso la técnica que mostraste, especialmente cuando quiero que una función pueda ser llamada como método de un objeto o simplemente una función externa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Object->get_color();#llamada como método

get_color();#llamada como funciónColoreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **panterozo** » 2010-03-18 11:16 @511

La respuesta de Kidd no la entiendo :S.... Si pudieses poner un código más extenso, con las llegadas de las variables a los métodos o funciones, estaría de pelos

A explorer, si fuese de esa forma... ¿hay alguna forma de indicarle a Perl si lo que está entrando sería un varchar, int, algún arreglo, o un hash?

Si lo que entra es un int, y lo comparo con un varchar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($dato_entrante== 3){

}elsif($dato_entranteeq"dato entrante"){

}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

en la sentencia elsif, línea 3, me indicaría un error y el programa no se ejecutaría (si mal no recuerdo...)

Me parece buena idea comparar dentro del new(), aunque me intriga saber si Perl puede en definitiva asegurarse de qué tipo de dato ingresa al new() y así poder discriminar.

por **explorer** » 2010-03-18 14:02 @627

En Perl v5 no existe el concepto de int o varchar (salvo que uses algún módulo específico). Solo hay escalares, arreglos y diccionarios.

Pero con Moose sí que puedes delimitar el tipo de los argumentos.

La forma de saber si un escalar, que almacena una referencia, es un de tipo o de otro, es por medio de la función ref().

En el ejemplo que pones, sería interesante que hicieras una prueba por ti mismo, para ver si funciona o no.

Actualización: new() no es una palabra reservada del Perl, así que puedes llamar a tus constructores como quieras. E incluso tener varios, con tal de que tengan nombres distintos.

por **explorer** » 2010-03-19 10:18 @470

En la documentación Perl tienes, a través de perldoc, los siguientes documentos:

* perlobj Objetos, en Perl
* perlboot Manual de programación Perl orientada a objetos, para principiantes
* perltoot Manual de programación Perl orientada a objetos, parte 1
* perltooc Manual de programación Perl orientada a objetos, parte 2
* perlbot Trucos y ejemplos de la programación Perl orientada a objetos

Hoy en día, lo más moderno en programación orientada a objetos, en Perl, es el módulo Moose (y Mouse).

por **panterozo** » 2010-03-22 16:29 @728

Siempre son bienvenidos tus comentarios sobre los modulos de CPAN explorer... les echaré una mirada

muchas gracias

Foro - Perl en Español

Sobrecarga de constructores

Sobrecarga de constructores

Publicidad

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

Re: Sobrecarga de constructores

¿Quién está conectado?