Discussion :

[Invité]

Bonjour,

Je suis en train d'effectuer une script de traitement de table SQL en Perl (une grosse table, genre une trentaine de champs).
J'ai vu qu'il était possible, via un while (@row = $dbexe->fetchrow_array()) de récupérer les données dans le while en faisant $row[0], $row[1], etc ...

Je n'aime pas cette notation, qui implique de toujours se référer à la requete SQL pour savoir quel est le champ 0, 1 etc etc. J'ai l'habitude d'utiliser le mysql_fetch_assoc de PHP plutôt que son "equivalent" mysql_fetch_num.

Y aurait-il alors un moyen en Perl de récupérer les différentes valeurs de ma requete dans un tableau associatif, tout comme la fontion sus_citée (en gras) de PHP ?

Merci d'avance pour votre aide

[djibril]

je pense que oui, mais, de tete, ça ne me revient pas. Consulte la doc du module DBI sur le CPAN

[djibril]

Code :

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

  while (my $ref_data = $projets->fetchrow_hashref() ) {

voilà

[Invité]

C'est exactement ça !
J'ai un peu galéré ensuite pour accéder aux données, mais après quelques recherches (notamment sur le nom de la fonction - que je n'avais pas avant), j'ai trouvé !

Voici donc, pour ceux que ça interesse, le fonctionnement pour utiliser cette fonctionnalité :

Code :

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

1
2
3
4
5
6
7
8
9
[...]
while(my $row = $sth->fetchrow_hashref()){
 my $query2 = 'INSERT INTO table_mysql SET '.
  'nom = "'.$row->{nom}.'",'.
  'prenom = "'.$row->{prenom}.'",'.
  'email = "'.$row->{email}.'"';
 print $query2
 [...]
}

Merci beaucoup Jibril pour ta rapidité et la qualité de ta réponse