Foro - Perl en Español

Publicado: **2016-04-04 12:14 @551**

Hola, estoy estudiando POO en este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package persona;
 
sub new {
    my $class = shift;
    my $self = {};
    bless $self,$class;
    return $self;
}
 
sub setName {
    my ($self,$n) = @_;
    $self->{NOMBRE} = $n;
}
 
sub getName {
    my $self = shift;
    #$self->borraNombre();
    if ($self->{NOMBRE}) {
        return $self->{NOMBRE};
    } else
    {
        return "Sin sombre";
    }
}
 
sub borraNombre {
    my $self = shift;
    if ($self->{NOMBRE})
    {
        $self->{NOMBRE} = "Borre el nombre";
    }
}
sub destruye
{
   my $self=shift;
   delete ($self->{NOMBRE});
}
1;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Quería saber si podía agregar un segundo new() con los parámetros de la clase como normalmente en la clases de C# y Java.

Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

new($nombre,$lugar,$dinero);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Se puede o no está permitido ?

Publicado: **2016-04-04 17:06 @754**

Con el sistema básico de POO de Perl, no. Tienes que darle otro nombre al método.

Hay muchos otros sistemas y módulos de Perl que sí lo permiten. En Moose, por ejemplo, ni siquiera hay que crearlo

En Perl, no hay una palabra reservada para el constructor. Por defecto, se le llama new(), pero podrías llamarlo de cualquier otra forma.

Así que, lo más sencillo, es darle un nombre distinto a cada constructor. O dentro del constructor, comprobar qué argumentos recibes, y comportarte de una manera o de otra.

El mejor consejo, es aprender Moose, desde luego.

Más información en tu propio ordenador en perldoc perlootut, y en la Web (traducido al español).

Programación Orientada a Objetos (Tutorial sobre POO, de la Universidad de la Laguna).

Foro - Perl en Español

Clase en Perl

Clase en Perl

Re: Clase en Perl