Discussion :

[hazaki]

Bonjour,
J'ai une question de niveau méga débutant et j'en demande à votre expertise.

Donc tout ce que je veux c'est appelé une fonction avec un paramètre et que celui-ci soit modifié.

Par exemple moi ce que j'ai :

Code :

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

1
2
3
4
5
6
 
sub ajoute1
{
	my $node=\$_[0];
	$$node=$$node+1;
}

Ceci modifie bien la variable passée en paramètre.
Ce que je voulais savoir c'est : Comment procéder de la même manière en utilisant le @_ pour récupérer les paramètres ?

Merci de votre aide

[Lolo78]

Bonjour,

je ne comprends pas bien ta question,. C'est bien le tableau @_ (ou du moins son premier élément) que tu modifies quand tu utilises la référence \$_[0].

[hazaki]

Bonjour et merci pour la réponse.
Dans le cas de la fonction que je présente, cela fonctionne mais je voudrais pouvoir utiliser un

my ($node)=@_ (qui sera plus utile pour les fonctions à plusieurs arguments, je te l'accord) avec un $node qui pointe qui les éléments de @_

[Philou67430]

je n'ai pas trop compris, mais tu peux faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub ajoute
{
	my @node= map \$_, @_;
	${$node[0]}++; # Ajoute 1 au premier élément du tableau
	${$node[1]} += 2; # Ajoute 2 au 2e élément du tableau
}
 
my @a = (1 .. 10);
ajoute(@a);

Cela dit, je trouve qu'il n'est pas sain d'ajouter à une fonction des effets de bord sur ses paramètres alors que rien n'indique apriori qu'elle en aurait.

Il me parait plus sain de définir "ajoute" avec une référence à un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub ajoute
{
	my $node = $_[0];
	${$node}[0]++; # Ajoute 1 au premier élément du tableau
	$node->[1] += 2; # Ajoute 2 au 2e élément du tableau
}
 
my @a = (1 .. 10);
ajoute(\@a);

[hazaki]

Bonjour,
merci de m'accorder ton temps et ton aide.
C'est quand je vois ta réponse que je comprends que je ne suis pas clair, je vais donc reformuler mon envie !

voici la forme de la fonction que je voudrais avoir

Code :

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

1
2
3
4
5
6
7
 
sub ajoute1
{
	my ($node1,$node2)= @_;
	$node1++;
	$node2++;
}

Le problème ici est que $node1 et $node2 ne pointent pas sur les arguments de la fonction et donc cette fonction est inutile.

Ce que je voudrais savoir c'est que dois-je rajouter sur la ligne :
my ($node1,$node2)= @_;
pour que $node1 et $node2 pointent sur les paramètres de la fonction.

[6ril23]

Code :

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

1
2
3
4
5
6
7
 
sub ajoute1
{
	my ($node1,$node2)= @_;
	$node1++;
	$node2++;
}

avec l'appel suivant, ça fonctionnera si j'ai bien et $node1 correspondra au 1er élément passé en argument de la fonction

Code :

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

&ajoute1(arg1, arg2);

donc dans ton exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub ajoute1
{
	my ($node1,$node2)= @_;
	$$node1++;
	$$node2++;
}
my @a=(0, 1);
&ajoute1( \$a[0], \$a[1] );
print "@a";    ---->   "1 2"

[Philou67430]

@6ril23, pour que cela marche, il faudra écrire :

Code :

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

1
2
	$$node1++;
	$$node2++;

Sinon, en lisant ta réponse, hazaki, je crois que j'ai bien compris ce que tu voulais, et ma réponse reste donc la même

[6ril23]

@6ril23, pour que cela marche, il faudra écrire :

Code :

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

1
2
	$$node1++;
	$$node2++;

Sinon, en lisant ta réponse, hazaki, je crois que j'ai bien compris ce que tu voulais, et ma réponse reste donc la même

oui je viens de voir et j'allais changer

[hazaki]

Ah voilà c'est ça que je cherchais !
Merci pour votre aide !