order by field pas effectif

Bonjour à tous,

J'ai un script perl qui utilise le module DBI. Ce script va chercher des données dans une base de données MySQL en utilisant les méthodes :
->prepare
->execute
->finish

La requête SQL contient la clause ORDER BY FIELD (age,'moins de 10 ans','10 à 15 ans','15 et plus') ou je précise un ordre d'affichage des résultats.

Quand j'exécute ma requête depuis phpMyAdmin, les résultats affichés sont conformes à la clause ORDER BY FIELD que j'ai précisée.

Ce qui me donne :
age
moins de 10 ans
10 à 15 ans
15 et plus

Par contre, quand j'exécute la requête depuis mon script perl, que je récupère les données au moyen de la méthode ->fetchrow_array et que j'écris ces résultats dans un fichier de sortie, l'ordre que je désire n'est plus respecté.

Ce qui me donne :
age
10 à 15 ans
15 et plus
moins de 10 ans

Quelqu'un voit d'où vient ce problème ?

J'ai trouvé une solution en m'inspirant de ce post et dans la mesure des mes connaissances en perl !

Je récupère les informations de ma requête en les assignant dans un hash :

Code:

---

1 2 3

while (my @data = $sth->fetchrow_array) { $hdt{$data[0]} = ["$data[1]","$data[2]","$data[3]"]; }

---

Avec comme clé, les valeurs du champ sur lequel était appliqué la clause SQL ORDER BY FIELD.

Je peux alors écrire les résultats comme bon me semble dans mon fichier de sortie :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

for my $type (keys %hdt) { if ($type =~ /^m/) { print FICHIERXML " <rev> <classe>$type</classe> <c1>$hdt{$type}[0]</c1> <c2>$hdt{$type}[1]</c2> <c3>$hdt{$type}[2]</c3> </rev> "; } }

---