Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Exemple complet d’utilisation d’une classe en Perl

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.

classe, set, email
Download

#!/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]

Comments are closed.

Sex Cams Movable Theme