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