PERL et Mysql, récupérer les données d'une requête

Version imprimable

07/09/2006, 11h34
duedos

PERL et Mysql, récupérer les données d'une requête
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:

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:D
Merci d'avance
07/09/2006, 11h45
MarneusCalgarXP

Il faut utiliser le module DBI...

Voici la documentation complète du module DBI:
http://search.cpan.org/~timb/DBI/DBI.pm
07/09/2006, 12h03
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.

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

Code:

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;
}

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

Code:

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

07/09/2006, 14h41
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