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

**manux043** · 13/01/2008, 11h14

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

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

**GnuVince** · 13/01/2008, 17h36

C'est normal. Quand tu fais:

Code :

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

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.

**Jedai** · 13/01/2008, 18h45

Code :

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

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 };