Foro - Perl en Español

por **BigBear** » 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.003 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 ?

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

Publicidad

Re: Clase en Perl

¿Quién está conectado?