Discussion :

[visteur]

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 :

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

[2Eurocents]

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 :

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

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

[djibril]

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

[visteur]

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 :

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

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

resultat :la liste
et pas d'affichage pour

Code :

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

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

merci pour tout

[visteur]

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

Code :

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

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