Bonjour,
 
Je voudrais récupérer les résultats d'un requête dans un tableau, avec Perl. J'arrive à les afficher, mais pas à les conserver.
Quelqu'un peut m'aider ?

comment ça les conserver ? c'est pas plutot un problème de Perl pure ?

Du code ne serait pas superflu!

Voilà le code : (je voudrais conserver les résultats de la requête pour m'en re servir)
 
use DBI();
 $dsn   = "DBI:mysql:database=ma_base;host=localhost";
 $login = "root";
 $mdp   = "";
 
 # préparation de la requête  
 $table = "appels";
 $colonne = "contenu_categorie";
 
 $dbh = DBI->connect($dsn, $login, $mdp) or die "Echec de la connexion\n";
 
 
 $requete_numeros = "SELECT no_appel from $table";
 # préparation
 $sth = $dbh->prepare($requete_numeros);
   
 # on exécute la requête préparée  
 $res = $sth->execute();
 
 
 print("nb : " . $res .  "\n" );
 @tab_numeros = $sth -> fetchrow_array;
 for($u=0;$u<=$res;$u++){
  print("numero : " . @tab_numeros[$u] . " \n" );
 }

Je vais p-e avoir l'air con (jamais touché à perl), mais tes résultats sont accessibles dans tab_numeros, non?

Il ne me donne que le 1er :  
@tab_numeros[0] et après tous les autres sont vides...
@tab_numeros[1], etc...
 
Voilà ma réponse :  
numero : 4318  
numero :  
numero :  
numero :  
numero :  
...

http://iis1.cps.unizar.es/Oreilly/ [...] 12_015.htm
 
"Fetches the next row of data, returning an array with the field values."
 
En plus, j'ai l'impression que tu t'es lancé là-dedans sans lire une seule ligne de documentation !!!
 
http://www.perl.com/pub/a/1999/10/DBI.html
 
"execute returns a true value if it succeeds and a false value otherwise"
 
Dans ton cas, si la requête s'exécute bien, $res vaudra 1 .. .. je dois en dire plus ???

Je me disais aussi...
donc, refaire un fetch-row à chaque tour de boucle...

Merci !