[web] insertion javascript dans du perl

Bonjour à tous! :D

Comme vous allez le remarquer, je ne suis pas du tout douée en informatique. :D
Voilà mon problème: j'exécute une requête en Perl et je stocke mon résultat dans un tableau.
J'affiche ensuite les différentes valeurs de ce tableau dans ma page de résultat de la facon suivante:

Citation:

---

while (my @tuple = $requete->fetchrow_array())
{
print "<TR>";
print "<center>";
for (my $i=0;$i<=$#tuple;$i++)
{
print "<TD>";
print "<center>";
print $tuple[$i];
print "</TD>";
}
print "</TR>";
}

---

J'aimerai maintenant mettre certans résultats de ce tableau en lien (popup), comme par exemple le résultat n°3 (3ème tuple). J'ai donc ajouté dans mon "for" un "if" comme suit:

Citation:

---

for (my $i=0;$i<=$#tuple;$i++)
{if ($tuple[$i]>=3)
{print "<TD>";
print "<center>";
print "<a href='javascript:popup(choix_espece.pl?copie=$tuple[$i])'>$tuple[$i]</a>
print "</TD>";
}
else
{print "<TD>";
print "<center>";
print $tuple[$i];
print "</TD>";
}

---

mais ceci ne me donne pas toujours le bon résultat, ce n'est pas toujours le bon résultat qui s'affiche en lien.

J'espère que vous pourrez m'aider car ca me bloque pas mal, merci d'avance!! :wink:

Bonjour,

Il manque un double quote à la fin :

Code:

---

1 2	print "<a href='javascript:popup(choix_espece.pl?copie=$tuple[$i])'>$tuple[$i]</a>

---

C'est possible que ce soit une erreur de copier-coller.

Une bonne idée pour clarifier ce genre de chose c'est d'utiliser la notation de string je-sais-plus-comment-elle-s'appelle (Here document ou un truc comme ça) comme ça :

Code:

---

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

for (my $i=0;$i<=$#tuple;$i++){ if ($tuple[$i]>=3){ print <<HTML; <TD> <center> <a href='javascript:popup(choix_espece.pl?copie=$tuple[$i])'>$tuple[$i]</a> </TD> HTML } else{ print <<HTML; <TD> <center> $tuple[$i]; </TD> HTML } }

---

Ca évite de mettre des print et des guillemets à chaque ligne... :)

Le double quote manquant est une erreur du copier-coller en effet.
Merci pour l'astuce pour éviter les "print".
J'ai enfin compris l'ereur: en fait à la place de

Code:

---

if ($tuple[$i]>=3)

---

il fallait tout simplement:

Code:

---

if ($i>=3)

---

Voilà, une erreur tout bête mais qui m'a bloqué pendant 2 jours! :P