{filelink=14327}

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une classe est un package
# contenant des fonctions et des variable
#

sub new{                    # Constructeur de la classe personne
    my $class = shift;
    my $personne = {
        "Nom"  => undef,
        "Profession" => undef,
        "Email"  => undef,
    };
    bless($personne, $class);    # Création de l'objet

    # Fonction qui permet de modifier les membres de la classe Personne
    sub set_Personne{
        my $self = shift;
        my ($nom, $profession, $email)= @_;  # Les paramètres de la fonction

        #Modifier les les attributs de la classe
        $self->{'Nom'} = $nom;
        $self->{'Profession'}= $profession;
        $self->{'Email'}= $email;
    }

    # Fonction qui permet d'afficher les valeurs des attributs
    sub get_Personne{
    my $self = shift;
    while(($key,$value)=each(%self))
    {
        print "$key: $valuen";
    }
}

# Création d'une instance de la classe Personne
$client = Personne->new();

# Initialisation de la classe
$client->set_Personne("Bill", "Gate", "bill@test.com");

# Accéder aux objets de la classe
$client->get_Personne;

# Modifier les valeurs des attributs
 $client->set_Personne("sako","adam","demo@gmail.com");

 #Afficher les nouvelles valeurs
 $client->get_Personne;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]