pb de parametre de fonction

Bonjour,
j'ai un probleme au niveau des parmetres d'une fonction qui cherche si un element est present dans une liste (je suis débutante alors c'est possible qui m'échapé une petite erreur)
voici le code

Code:

---

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

sub est_present { my $element =$_[0]; my @lst = @_[1]; print("la liste $lst[0] \n"); for $val (@lst) { if ($element eq $val) { print(" element $element et la valeur $val\n"); $in = 1; last; } } return $in; } $resultat=&est_present("a",$liste);

---

mais au niveau du resultat rien pourtant "a" appartient à @liste (c'est le premier élement )
merci pour tout coup de main pour ce probleme

Les listes transmises en paramètres sont systématiquement applaties. Cela signifie que @_ contient les éléments de la liste, et pas la liste elle même.

Du coup, la récupération du scalaire initial et de la liste qui suit doit se faire différemment :

Code:

---

1 2	my $element = shift; my @lst = @_;

---

Ainsi, on récupère le premier scalaire en l'éliminant de @_, puis on récupère la totalité de ce qui reste dans @_.


L'autre solution, plus pertinente, mais plus délicate, est d'utiliser une référence dans le passage de liste en paramètres. Cette référence est récupérée, comme un scalaire, dans la fonction, et peut être utilisée pour accéder à la liste "pointée".

Bon Perl ;)

Tu peux regarder dans la faq, on en parle des fonctions et des références.
Confere signature;

merci pour ton aide j'ai modifié ce que tu as dit mais j'ai un petit soucis
on dirais que mon programme n'accede pas à la boucle
puisque ce que j'ai comme resultat

Code:

---

print("la liste $lst[0] \n");

---

resultat :la liste
et pas d'affichage pour

Code:

---

print(" element $element et la valeur $val\n");

---

merci pour tout

merci pour tout le monde j'ai trouvé l'erreur et voici le code qui marche

Code:

---

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

sub est_present { my $element =shift; my @lst = @_; for $val (@lst) { if ($element == $val) { print(" element $element et la valeur $val\n"); $in = 1; last; } } return $in; } $resultat=&est_present('a',@liste);

---