Problème avec un bout de code Perl [ requête / MySQL]

Bonjour à tous,

je rencontre un problème au niveau de l'exécution d'une requête SQL et je ne vois pas où est ma coquille :(. Avec le débuggage, je sais ce qui cloche mais je vois pas comment m'en sortir ...

Code:

---

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

sub Activity { my ($id_user) =@_; print "Dans la fonction"; $sql= "SELECT activity_user FROM users WHERE id_user=$id_user"; $var = $dbh -> selectrow_array($sql); return $var; }   for($i=0;$i<$longueur;$i++) { print "tour de boucle $i" $result=&Activity($line[$i]); print $result; }

---

qui produit l'output suivant :

Code:

---

1 2 3 4

tour de boucle 0Dans la fonctionN tour de boucle 1Dans la fonction tour de boucle 2Dans la fonction

---

l'activité du compte dans la requête, c soit N soit Y, et systématiquement, je ne récupère que la valeur lors du premier tour de boucle et je comprends pas pourquoi :(

une idée ?

Merci par avance

Slyv

Salut,
D'abord, selectrow_array renvoie un array, donc :

Code:

---

$var = $dbh -> selectrow_array($sql);

---

Ensuite, teste ta boucle for seule, sans l'appel à ta fonction, pour voir si elle récupère bien toutes les valeurs du tableau @line :

Code:

---

1 2 3 4

for($i=0;$i<$longueur;$i++) { print "tour de boucle $i\n"; print "$line[$i]\n"; }

---

Et il te manque une terminaison de ligne au premier appel à print.