Programando en Perl no. 2

1. Uso de clases: En este ejemplo se va crear dos archivos: Alumno.pm (esta es la clase) y usoAlumno.pl. Se definen 7 atributos:

• nombre
• apellidos
• edad
• dirección
• ciudad
• teléfono y
• email

Se crea una función para mostrar los datos.

Alumno.pm

1. Creamos la clase Alumno:

package Alumno;

use strict; 

sub new{

my $this=shift; 

     my $class = ref($this) || $this; 

     my $self={}; 

     $self ->{NOMBRE} =undef ; 

     $self ->{APELLIDOS} =undef ;

     $self ->{EDAD}   =0 ; 

     $self ->{DIRECCION}   =undef ; 

     $self ->{CIUDAD}   =undef ; 

     $self ->{TELEFONO}   =undef ; 

     $self ->{EMAIL}   =undef ;    

     bless $self, $class; 

     return ($self);

}

sub nombre{

       my $self=shift;

       $self->{NOMBRE}=shift if (@_);

       return $self->{NOMBRE};

  }

  sub apellidos{

       my $self=shift;

       $self->{APELLIDOS}=shift if (@_);

       return $self->{APELLIDOS};

  }

  sub edad{

       my $self=shift; 

       $self->{EDAD}=shift if (@_);

       return $self->{EDAD};

  }

  sub direccion{

       my $self=shift;

       $self->{DIRECCION}=shift if (@_);

       return $self->{DIRECCION};

  }

  sub telefono{

       my $self=shift; 

       $self->{TELEFONO}=shift if (@_);

       return $self->{TELEFONO};

  }

  sub email{

       my $self=shift; 

       $self->{EMAIL}=shift if (@_);

       return $self->{EMAIL};

  }

  sub ciudad{

       my $self=shift; 

       $self->{CIUDAD}=shift if (@_);

       return $self->{CIUDAD};

  }

  sub DESTROY {

        my $self=shift; 

        delete ($self->{NOMBRE});  

        delete ($self->{EDAD}); 

        delete ($self->{APELLIDOS});  

        delete ($self->{EMAIL});

        delete ($self->{DIRECCION});  

        delete ($self->{TELEFONO}); 

        delete ($self->{CIUDAD});

  }

1;

2. El archivo "usoAlumno.pl" que emplea la clase Alumno:

usoAlumno.pl

use Alumno;

$alumno=Alumno->new();

$alumno->nombre("horacio");

$alumno->apellidos("Sanchez");

$alumno->edad(31);

$alumno->direccion("aldama 34");

$alumno->ciudad("San Luis");

$alumno->email("alguien@gommail.com");

$alumno->telefono("722156444");

print "Hola: ".$alumno->nombre." ".$alumno->apellidos."  tienes: ".$alumno->edad."  de edad, vives en ".$alumno->direccion."  ".$alumno->ciudad." \n ";

print "tu email es: ".$alumno->email."  tu telefono es: ".$alumno->telefono."  \n";

Para ejecutar: perl usoAlumno.pl