$scalaire = $scalaire + $$référence

Bonjour,

on révise nos bases de programmation?

J'aimerais attribuer à un scalaire la valeur d'un scalaire + la valeur d'une référence. Si je modife la valeur de la référence, mon premier scalaire $scalaireTrois ne sera pas réévalué car il ne contient pas l'expression de définition mais un scalaire. Avec une fonction, je peux obtenir ce que je veux, j'aimerais auparavant savoir si un guru a un truc pour ne pas faire justement de fonction. Je pense que le script est assez parlant...

Merci d'avance
Manu

##############################################
#!/usr/bin/perl -w

use strict;

my $scalaireUn = 12;
my $scalaireDeux = 4;
my $_scalaireDeux = \$scalaireDeux;
my $scalaireTrois = $scalaireUn + $$_scalaireDeux;

print $scalaireUn,"\n"; # Affiche 12 !
print $scalaireDeux,"\n"; # Affiche 4
print $$_scalaireDeux,"\n"; # Affiche 4
print "TROIS:", $scalaireTrois,"\n"; # Affiche TROIS:16

$$_scalaireDeux=10;
print $$_scalaireDeux,"\n"; # Affiche 10
print "TROIS:", $scalaireTrois,"\n"; # Affiche TROIS:16

# Je suis obligé de réevaluer $scalaireTrois pour obtenir la valeur désirée
$scalaireTrois = $scalaireUn + $$_scalaireDeux;
print "TROIS:", $scalaireTrois,"\n"; # Affiche TROIS:22

##############################################

C'est normal. Quand tu fais:

Code:

---

1 2	$scalaireTrois = $scalaireUn + $$_scalaireDeux;

---

Tu dis "Affecter la valeur de $scalaireUn plus celle de la valeur référencée par $_scalaireDeux à $scalaireTrois". Ça ne dit pas que chaque fois que $scalaireTrois est utilisé, sa valeur doit être recalculée.

Aussi bien utiliser une fonction comme tu l'as dit.

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl -w   use strict;   my $scalaireUn = 12; my $scalaireDeux = 4; my $scalaireTrois = sub { return $scalaireUn + $scalaireDeux };

---

devrait parfaitement faire l'affaire.

--
Jedaï

Tu pourrais peut-être utiliser le module Scalar::Lazy aussi.

Merci pour les 2 propositions !

pour le module Scalar::Lazy, j'ai trouvé Tie::LazyFunction sur CPAN mais pas celui que tu cites.

Manu

Oups, le nom est Scalar::Defer. Pardon

http://search.cpan.org/~audreyt/Scal...calar/Defer.pm