- nombre
- apellidos
- edad
- dirección
- ciudad
- teléfono y
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
