Discussion :

[fifto]

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 :

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

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

[Jedai]

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 :

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
#!/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ï