equivalent mysql_fetch_assoc (PHP) en Perl ?

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 :king:

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

Code:

---

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

---

voilà

C'est exactement ça ! :D
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:

---

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 :ccool: