Discussion :

[tintin3158]

Bonjour,

je suis en train de parcourir le cours de poo perl par djibril. j'ai beau cherché sur le net, faq il y a un élément que je n'arrive pas à comprendre. c'est pourtant simple mais moi je ne vois pas la différence.

voici l'exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
my $Objet_Personne1 = Personne->new( {
nom => 'Dupont',
prenom => 'Jean',
age => 45,
sexe => 'M',
nombre_enfant => 3,
});
 
print $Objet_Personne1->{AGE},"\n";
$Objet_Personne1->{AGE} = 22;
print $Objet_Personne1->{AGE},"\n";

ce code doit afficher ce résultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
45
22

jusque là aucune énigme je comprends. Dans le cours, on y explique qu'en affectant une nouvelle valeur dans cette variable en utilisant le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$Objet_Personne1->{AGE} = 22;

on "viole" les attributs de la classe.

il est donc conseillé de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# accesseur obtenir_age
sub obtenir_age {
   my ( $this ) = @_;
   return $this->{AGE};
}
 
# mutateur modifier_age
sub modifier_age {
    my ( $this, $age ) = @_; #pour moi ici la premier valeur sera le nom de la classe suivi de l'age
 
    if ( defined $age ) {
                                  $this->{AGE} = $age;# et là on "ecrase" le contenu de la variable dans l'objet pour mettre une nouvelle valeur
                                }
                 return;
}

pour la partie affichage de l'age je comprends

pour le mutateur afin de modifier l'age pour moi c'est la même chose que ce code là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$Objet_Personne1->{AGE} = 22;

Je suis navré pour une question qui peut vous paraître simplissime! mais je ne comprends pas trop la nuance !

bonne fête à tous

[Lolo78]

L'accesseur obtenir_age et le mutateur modifier_age (de même que new) sont des méthodes de la classe et sont définis dans le package définissant la classe. Ils font partie de l'interface mise à la disposition de l'utilisateur de la classe par le développeur auteur de la classe. Le développeur utilisateur n'a pas à connaître les détails d'implémentation interne (peut-être l'objet créé est représenté par un hachage, ou peut-être par autre chose), il ne doit connaître que l'interface mise à sa disposition. De cette façon, même si l'auteur décide de modifier l'implémentation interne, le programme utilisateur continuera à fonctionner du moment que l'interface utilisateur (en gros, les paramètres d'appel et valeurs de retour de ces méthodes) reste inchangée.

Techniquement, il est possible en Perl d'accéder à la structure de données représentant l'objet, mais ce n'est pas souhaitable car le comportement de l'objet doit être défini par les méthodes (d'interface ou internes) de la classe. Par exemple, si l'âge est modifié, il est possible que cela donne à la personne un droit à une remise sur les billets de chemin de fer, stockée dans un champ "remise" de l'objet. L'auteur de la classe a peut-être prévu que la méthode modifier_age mette non seulement à jour le champ "âge" de l'objet, mais aussi le champ "remise", par exemple si l'âge dépasse une certaine valeur. Si tu tapes directement dans la structure de données représentant l'objet pour modifier l'âge, tu risques de créer une incohérence de l'objet entre les champs "âge" et "remise".

Le code de la classe a le droit de faire quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$Objet_Personne1->{AGE} = 22;

Le programme utilisateur de la classe ne doit en principe pas le faire, car cela violerait le principe d'encapsulation des données, qui est l'un des éléments centraux de la programmation orientée objet.

[tintin3158]

J'avais pas saisi ça en ce sens, je te remercie beaucoup, ça m'éclaire.

C'est donc une question "d'intégrité" du code. J'avais du mal a saisir le concept mais avec tes exemples c'est plus concret.

merci pour les liens sur la programmation fonctionnelle, je vais également les étudier.

D'une manière générale si tu as des sites de formation ou des ouvrages à me conseiller je suis preneur. je suis en plein.. auto-formation.

Merci pour ton temps.

Je te souhaite de passer de bonnes fêtes.

[djibril]

Juste pour complément, si tu lis mon tutoriel en entier, tu verras qu'il existe d'autres façons de concevoir ses programmes en protégeant ses attributs via l'utilisation d'autres modules Perl. Je tenais juste à présenter les libertés offertes par Perl. Bien évidemment, dans mon exemple choisi, pour mal coder, faut il encore être capable de lire le code source afin d'utiliser AGE (au lieu de age :-) ).
Bon courage pour ton apprentissage de Perl.

[tintin3158]

Juste pour complément, si tu lis mon tutoriel en entier, tu verras qu'il existe d'autres façons de concevoir ses programmes en protégeant ses attributs via l'utilisation d'autres modules Perl. Je tenais juste à présenter les libertés offertes par Perl. Bien évidemment, dans mon exemple choisi, pour mal coder, faut il encore être capable de lire le code source afin d'utiliser AGE (au lieu de age :-) ).
Bon courage pour ton apprentissage de Perl.

Les cours et tutoriels pour apprendre PERL sont super, je compte tous les lires. Je me contente pas de le lire, je teste ton code en exemple afin de bien assimiler les notions.

Je pense donc que j'en ai pour quelques temps..

je te remercie pour la qualité de ton travail.

passe de bonne fêtes !

[djibril]

, c'est gentil !