Discussion :

[Balbuzard]

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 :

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

1
2
3
4
5
sub balance {
	my $this = shift;
	$this->{$balance} = shift if (@_);
	return $this->{$balance};
}

et également

Code :

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

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 :

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

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

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

Code :

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

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!

[Philou67430]

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 :

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

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à

[Balbuzard]

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 :

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

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.

[Philou67430]

Je comprends encore moins

[Balbuzard]

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!

[Philou67430]

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

Code :

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

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 :

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

1
2
3
4
sub alive_switch {
  $alive = 1 - $alive;
  return $alive;
}

En espérant avoir été utile.