Référencement pour les subroutines

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:

---

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 :)

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].

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 @_

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

Code:

---

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:

---

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

---

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:

---

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.

Citation:

---

Envoyé par hazaki

Code:

---

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:

---

&ajoute1(arg1, arg2);

---

donc dans ton exemple:

Code:

---

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"

---

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

Code:

---

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 :)

Citation:

---

Envoyé par Philou67430

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

Code:

---

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

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