Discussion :

[duedos]

Bonjour tout le monde
Je souhaiterais savoir comment récupérer, si c'est possible, les résultats d'une requête MySQL en les stockant dans un tableau.
En fait, je fais une requête portant sur un code identifiant mais qui peut correspondre a plusieurs champs dans ma table.

voici cette requête, ou le code identifiant vaut 1234 par exemple

Code :

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

1
2
 
"select nom from chateaux where code_tel='1234' order by 'id_c' asc"

cette requête peut donc me renvoyer plusieurs 'nom'.
Je voudrais donc stocker tous ces noms dans un meme et unique tableau, pour pouvoir y acceder par la suite avec juste $tableau[0] par exemple.
J'espere que ma demande est claire...
et surtout ne m'en veuillez pas si c'est la quelque chose de simple, je suis nul
Merci d'avance

[MarneusCalgarXP]

Il faut utiliser le module DBI...

Voici la documentation complète du module DBI:
http://search.cpan.org/~timb/DBI/DBI.pm

[duedos]

le module DBI pas de souci, je m'en sers tout le temps.
J'ai meme l'habitude de recuperer un rsultat d'une requete et le passer en variable dans mon script apres.
mais la je souhaite recupere plusieurs resultats en meme temps et tout stocker dans un tableau.

[MarneusCalgarXP]

dans ce cas, si tu connais déjà DBI

Code :

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

1
2
3
4
5
6
7
8
9
10
11
# contiendra la liste des noms
my @names = ();

# tant que la requête renvoie des résultats
while (my @result = $statement->fetchrow_array())
{
    # @result contient les données de l'enregistrement en cours
    my $name = shift @result; # ou = $result[0], comme tu préfères ;)
    push @names, $name;
}

[MarneusCalgarXP]

ou encore plus joli avec les références ^^

Code :

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

1
2
3
4
5
6
7
8
 
my (@names, $name);
$statement->bind_columns( \$name );
 
while ( $statement->fetch() )
{
    push @names, $name;
}

[duedos]

Merci bien MarneusCalgarXP, ca marche tres bien comme ca
En fait le probleme venait plus de mon manque de connaissance en PERL. La manip du shift et push m'etait inconnue.
Enfin merci encore