Récupération des données

Bonjour,
j'ai besoin d'aide,
je suis débutante en perl et j'essai d'executer un script qui récupére les données depuis la base de données et essayer de l'afficher,
mais j'obtiens des erreurs Global symbol "$i" requires explicit package name voici mon morceau de code :

# Selection des données

Code:

---

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

my @requis_name;   my $prep = $dbh->prepare('SELECT name FROM pre_requis') or die $dbh->errstr;   $prep->execute() or die "Echec requête\n";   while ( my ($requisName) = $prep->fetchrow_array ) {   push( @requis_name, $requisName );   #print $requisName."\n";   }   for ($i=0;$i<$#requis_name;$i++) {   print ("$requis_name[$i]\n");   }

---

Bonjour,

Si le pragma "use strict" est utilisé (ce qui est très fortement conseillé), il faut déclarer les variables avec le mot-clé 'my'.

Ici dans ta boucle, il manque le 'my' devant $i :

Code:

---

1 2 3 4 5

for (my $i=0;$i<$#requis_name;$i++) {   print ("$requis_name[$i]\n");   }

---

Mercii beaucoup,
maintenant le script fonctionne :D