je comprend pas un code du cours perl

salut,

voilà, dans la lecon numéro 2 de votre site (http://perl.developpez.com/tutoriel/cours2/)

il y a un code que je comprend pas:
fonction2.pl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl   sub inverse{ if ($_[0] == 0){ print "Division par 0 impossible !\n"; } else { $resultat = 1/$_[0]; print "L'inverse de $_[0] est $resultat.\n"; } } print "De quel nombre voulez-vous avoir l'inverse ?\n"; $nombre = <stdin>; chomp $nombre; inverse($nombre);

---

pourquoi on a $_[0] à la place de $_ ou pourquoi pas $_[1] ou autre ?
je comprend pas....

merci de votre aide
miguel

Tout d'abord : ON NE POSTE PAS DANS CE FORUM, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.

Ensuite, il faudrait à l'avenir que tu mettes ton code (ou le nôtre) entre balises CODE (avec le bouton # du forum).

Ne le prend pas mal, en suivant ces consignes, tu obtiendras plus rapidement tes réponses, et de meilleures.

Finalement, ta réponse : dans une fonction (introduite par "sub"), les arguments de la fonction sont dans le tableau @_. Donc $_[0] est le premier argument passé à inverse(). Attention, si tu modifies $_[0], tu vas modifier l'argument, c'est pourquoi on fait fréquemment une copie des arguments, en en profitant pour leur donner un nom plus significatif :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict;   sub inverse { my($number) = @_; if ($number == 0){ print "Division par 0 impossible !\n"; } else { my $result = 1/$number; print "L'inverse de $number est $result.\n"; } }   print "De quel nombre voulez-vous avoir l'inverse ?\n"; my $nombre = <STDIN>; chomp $nombre; inverse($nombre);

---

--
Jedaï