Discussion :

[djidane39]

bonjour,

j'ai un problème avec les pointeur en Perl: en lisant les faq et tuto, c'est écrit qu'on peu faire un pointeur avec \$var. mais quand j'utilise un tel pointeur en parametre de fonction, $var b'est pas modifié...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my $operationComplexity = 1;
my $operator = 0;
my $expression = 1;
my @identifiers = ("test1", "test2");
 
for (my $i = 0; $i < 10; $i++) {
	RandomAllocation->operationExpressionInt("test", $operationComplexity, 
		@identifiers, \$operator, \$expression);
	print $operator." -|- ".$expression."\n";
}

a l'affichage j'ai toujour "0 -|- 1" alors que la fonction RandomAllocation->operationExpressionInt devrait modifier les valeur de $operator , et $expression :

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
17
18
 
sub operationExpressionInt {
	my ( $class, $identifier, $complexite, @identifiers, $operator, $expression ) = @_;	
	my $randValue;
	my $nbIdentifier = @identifiers;
 
	# generer un operateur aleatoire
	$operator = "+";
 
	# generer une expression aleatoire (valeur ou identifiant du tableau)
	$randValue = Random->getRandomInt($nbIdentifier);
 
	if ($randValue == $nbIdentifier) {
		$expression = Random->getRandomInt();
	} else {
		$expression = $identifiers[$randValue];
	}	
}

j'ai tester la fonction sans pointeur, ça marche, ya pas de pb, le probleme se situe au niveau des pointeur qui ne modifie pas les objet pointé.

étant débutant en perl (j'en fait que depuis 1 mois -_-') j'ai un peu de mal avec les pointeurs (peu etre ne fonctionne t'il pas pareil qu'en C?)

[Jedai]

Si tu penses que ta fonction marcherait en C, c'est que tu n'es pas trop adepte du C... Ce que tu as essayé de faire ressemblerait plus aux références du C++ et encore.
En effet quand tu passes un pointeur à une fonction en C, si tu veux modifier la valeur, il faut déréférencer le pointeur avant, en Perl c'est pareil.

--
Jedaï

[djidane39]

en effet je suis pas trop un adepte du c -_-', mais c'est ma seul expérience des pointeur.
Ca veu dire quoi déférencer?

[Jedai]

En Perl, on parle de "références", pas de "pointeurs" pour souligner qu'on ne peut pas effectuer d'"arithmétique des pointeurs" en Perl (autrement dit tu ne peux pas additionner une référence et un entier en Perl et obtenir une référence, ça ne marche pas comme ça, et du coup tu ne peux pas avoir les bugs d'accès mémoire que tu peux avoir en C).

L'idée c'est qu'une référence est l'"adresse" d'une valeur, et tu peux l'utiliser pour accéder à la valeur en elle-même, mais pour ça il faut te rendre à cette adresse en "déréférençant" la référence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my $valeur = 5;
 
# \ permet de récupérer une référence sur une variable
my $ref_sur_valeur = \$valeur;
 
# $ref_sur_valeur = 3; n'affecterait pas $valeur
 
#on déréférence
${$ref_sur_valeur} = 3;
 
print $valeur; # affiche "3"

Mais relit la FAQ, tu as plusieurs exemples dedans, entre autre une référence peut pointer sur un tableau (@) ou un hachage (%) aussi bien que sur un scalaire ($) et dans ce cas il faut déréférencer avec le bon sigil.

D'un autre côté ton exemple initial n'est vraiment pas un bon exemple d'emploi de références, elles sont parfaitement inutiles et ne font que compliquer le code.

--
Jedaï

[djidane39]

D'un autre côté ton exemple initial n'est vraiment pas un bon exemple d'emploi de références, elles sont parfaitement inutiles et ne font que compliquer le code.

C'est vrai, je vien de me rapeler que perl permettait de retourner plusieur scalaire en meme temps -_-'
en tout j'ai ma réponse quand même, merci ^_^