# chargement du module use DBI ; # connection $dbh = DBI->connect("DBI::mysql:test:localhost","root","") ; # préparation de la requête et exécution $que = "select * from elf limit 2 " ; $que->execute ; # nombre de champs vus my $nbc = $que->{'NUM_Of_FIELDS'} ; # affichage des données while (my $rf = $que->fetchrow_arrayref) { for (my $idc=0 ; $idc<$nbc;$idc++) { printf("%s%s",$$rf[$idc],$idc ? "," ";" : "") ; } ; # fin de pour } ; # fin de tant que print $que->finish ;