Discussion :

[nobla]

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 :

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

[Beniou]

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 :

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

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

[nobla]

Mercii beaucoup,
maintenant le script fonctionne