Discussion :

[vargasvan]

Salut!
Je suis débutant en PERL. J'utilise le module DBI.
Je fais une requête qui doit me rapporter plusieurs lignes, chacune de ces lignes contenant plusieurs champs d'informations. Pour récupérer toutes ces infos dans un tableau de tableaux, je dois bien utiliser le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        if ($typeGraph eq "sec") { 
            $query = CoMtlBindQuery($SELECT_DATA_CYCLE, num2str($stations[i][1]));
        } else {
            $query = CoMtlBindQuery($SELECT_DATA_STATION, num2str($stations[i][1]));
        }
 
        $query = CoMtlBindQuery($query, $typeVar);
        $sth = $dbh->prepare($query);
    $nb = $sth->execute();
    #-----------------------
    @res = fetchall_arrayref ;
    #-----------------------

C'est bien ça?

Ensuite, je souhaiterais récupérer les valeurs d'un champ précis, pour toutes les lignes, pour les placer dans un tableau. Et ce, pour plusieurs champs résultant de ma requête. Je ne sais pas si je suis très clair mais j'ai essayé comme ceci mais ça ne marche pas :

Code :

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

1
2
3
4
5
 
        $tmp_xxxx[$i]       = $res[][1] ;
        $tmp_pres[$i]       = $res[][2] ;
        $tmp_xxxx_qc[$i]    = $res[][3] ;
        $tmp_pres_qc[$i]    = $res[][3] ;

Est-ce que quelqu'un pourrait m'aider? Pour résumer, ce que je souhaiterais faire, c'est récupérer par exemple la seconde colonne d'un tableau à 2 dimensions. Est-ce possible?

[Mr6]

fetchall_arrayref renvoie une référence à un tableau de tableaux. donc tu dois écrire :

Code :

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

$res = $nb->fetchall_arrayref;

et tu atteinds tes résultats de la sorte :

Code :

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

1
2
3
4
5
6
 
print "$res->[0][0]";
print "$res->[0][1]";
print "$res->[0][2]";
print "$res->[1][0]";
....

ou à la rigueur si tu veux tout voir :

Code :

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

1
2
3
4
5
6
7
 
foreach my $ligne (@{$res}) {
     foreach my $element (@{$ligne}) {
        print "$element";
     }
     print "\n";
}

pour le 2ème élément de ton tableau, tu as plusieurs choix :

Code :

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

1
2
3
4
5
 
$res = $nb->fetchall_arrayref(2);
foreach my $ligne (@{$res}) {
     print "$ligne[0]\n";
}

ici tu ne récupère que le 2ème élément de ta requête.
sinon, si tu veux tout dans ta référence, tu fais juste :

Code :

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

1
2
3
4
 
foreach my $ligne (@{$res}) {
      print "$ligne[1]\n";
 }

cette dernière solution ne me semble pas plus mal

@+
Mr6
ps : dans ta ligne :

Code :

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

query=.....$stations[i][1]

ca ne serait pas plutôt $i ?

[vargasvan]

ps : dans ta ligne :

Code :

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

query=.....$stations[i][1]

ca ne serait pas plutôt $i ?

Euh, si bien sûr, petite faute de frappe. Merci!

En fait, ce que je veux faire, c'est récupérer le contenu d'un colonne précise et la mettre dans une nouvelle variable tableau. Ce que tu m'as conseillé ne permet que de l'afficher non? Ou peut-être ai-je mal compris? Je ne sais pas trop si j'avais bien expliqué le problème au départ...