Problème getters et setters

Bonjour;

Je dois faire partager une variable entre plusieurs classes.
J'utilise donc un getter et un setter.

Je me suis inspiré de la FAQ, mais je ne dois partager qu'un variable, donc j'ai produit le code suivant:

Code:

---

1 2 3 4 5

sub balance { my $this = shift; $this->{$balance} = shift if (@_); return $this->{$balance}; }

---

et également

Code:

---

1 2 3 4 5 6 7

sub accesseur { my ($this) = shift; #$this contient une référee a l'objet courant my $balance = __PACKAGE__ . "::balance"; if ( @_{ $this->{$balance} = shift } ) { return $this->{$balance}; } }

---

Je recherche la valeur avec

Code:

---

if($self->balance() == 1)

---

Mais lorsque je fais un print de $self->balance() j'obtiens:

Code:

---

Xymov::XymovDBI2=HASH(0x504290)->balance()

---

Apparemment j'ai pas tout compris :-S

Pourquoi je n'obtiens pas 0 ou 1 (valeur affectée à la balance) avec ce print?
Ai-je mal suivis les instructions?

Merci pour vos réponses!

Peux-tu montrer la ligne de ton print ?

Je ne comprends pas bien ce que tu cherches à faire ici:http://www.developpez.net/forums/ima...on_redface.gif

Code:

---

1 2 3 4

my $balance = __PACKAGE__ . "::balance"; if ( @_{ $this->{$balance} = shift } ) { return $this->{$balance}; }

---

Dans cette partie :
- à quoi sert @_{ ... } dans le if ?
- tu affectes une propriété $balance à l'objet $this, or $balance contient le texte __PACKAGE__ . "::balance"... je ne vois pas de déréférencement de $balance... j'ai du mal à comprendre ce que tu cherches à faire là 8O

mmmh bon pour éviter que d'autres cherchent inutilement;
Pressé par le temps, j'ai décidé de créer une méthode qui change une valeur $balance; pas vraiment un setter, mais bon, ça faisait la même chose :-S

Code:

---

1 2 3 4

sub set_alive { my ($self) = @_; $alive = 1; }

---

J'espère que c'est pas trop salement codé lol

Merci pour ta réponse, Philou67430, et désolé de pas pouvoir chercher d'avantage.

Je comprends encore moins :?

OK, j'ai juste besoin d'une bascule; si j'appelle la fonction, elle passe la valeur à 1, si j'appelle set_dead (presque même code) elle passe la valeur à 0.

Du coup, à partir d'une classe extérieure qui vérifie si l'hôte est vivant ou mort (joignable ou pas) je fixe la valeur à dead ou alive. Le reste de cette classe vérifie régulièrement la valeur de cette variable et en fonction, fait un traitement plutôt qu'un autre.

$alive est une variable propre à la classe, et c'est la seule à en avoir besoin, donc pas besoin de getter.

Je pense que mon setter est correct, non? en tout cas, il semble faire ce que je lui demande. Peut-être au niveau du code, c'est pas très propre?

Merci, pour tes réponses!

Je ne comprends pas pourquoi tu n'as pas le même code ou presque qu'un getter/setter de propriété :

Code:

---

1 2 3 4 5 6 7 8 9 10

package toto;   my $alive = 0;   sub alive { ($alive) = @_; return $alive; }   1;

---

Et pour écrire une bascule, en supposant que tu bascules entre les valeurs 0 et 1, tu peux l'écrire ainsi :

Code:

---

1 2 3 4

sub alive_switch { $alive = 1 - $alive; return $alive; }

---

En espérant avoir été utile.