Discussion :

[philobedo]

Bonjour à tous,

J'ai créer un package perl dans lequel j'ai mes fonctions Oracle (connexion, déconnexion, lecture d'un enregistrement n, lecture de n à m, création, insertion, lecture de tous les enregistrements...).
Dans le cas de la fonction qui lit tous les enregistrements d'une table à partir d'un select passé en paramètre, je voulais savoir comment je peux renvoyer tous les enregistrements, soit dans une liste, un hash ou encore par référence directement ??

En fait je voudrais éviter d'avoir à faire une boucle (for, while) dans ma fonction mais plutot dans mon programme principal (pour gain de temps).
Voici actuellement ce que je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub select {
     my ($sql,$instanceOracle)=@_;
     my @values;
     my $sth=$instanceOracle->prepare_cached($sql)
        or die "Unable to prepare the request: " . $instanceOracle->errstr;
     $sth->execute()
       or die "Unable to execute the request: " . $sth->errstr;
 
     my $j=0;
     while ( my @data = $sth->fetchrow_array() ) {
          for (my $i=0; $i <=$#data; $i++) {
             if (defined($data[$i])) {
                  $values[$j][$i]=$data[$i];
             }
             else {$values[$j][$i]="NULL";}
          }
        $j++;
     }
     $sth->finish;
     return @values;
}

or je voudrais éviter la boucle while et renvoyer juste une liste, un hash ou une réf d'un tableau.

En gros je voudrais que mon code ressemble à ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub select {
     my ($sql,$instanceOracle)=@_;
     my @values;
     my $sth=$instanceOracle->prepare_cached($sql)
        or die "Unable to prepare the request: " . $instanceOracle->errstr;
     $sth->execute()
       or die "Unable to execute the request: " . $sth->errstr;
 
     my $data = $sth->fonction_adéquate!();
     #ou:
     my @data = $sth->fonction_adéquate!();
     #ou:
     my %data = $sth->fonction_adéquate!();
     #ou:
     $sth->finish;
     return $data;
     #ou:
     return @data;
     #ou:
     return %data;
}

J'ai cherché dans la doc CPAN, je n'ai rien trouvé qui pourrait m'aider (même en utilisant les curseurs), y a t-il un moyen d'y parvenir (ça peut être aussi un autre module que DBD:Oracle) ?

Merci d'avance
Cordialement
Philobedo

[estofilo]

Il existe une méthode DBI dans ce genre là, c'est fetchall_arrayref

[philobedo]

Bonjour estofilo,

Merci de ta réponse. Effectivement c'est bien ce genre de fonction que je recherche !

Par contre je viens de faire un test rapide et le temps de réponse est aussi long (voire plus ?) qu'avec la méthode de remplissage de tableau par boucle...

Y a t-il d'autre méthode ou moyen de procéder qui soit plus rapide et performant ??

Pour information je travaille sur une base contenant plusieurs million d'enregistrement...

Merci
a+

[djibril]

Voici une petite documentation sur des points à connaitre en DBI. N'hésite pas à nous montrer ton code par la suite.

[philobedo]

Bonjour djibril,

ça à l'air intéressant tout ça ! ^^ Merci
Je m'y plonge et je vous tiens au courant.

Faut pas cacher les tutos aussi intéressant que ça!!

++

[djibril]

Bonjour djibril,

ça à l'air intéressant tout ça ! ^^ Merci
Je m'y plonge et je vous tiens au courant.

Faut pas cacher les tutos aussi intéressant que ça!!

++

Les tutoriels ne sont pas cachés , faut juste avoir le réflexe d'aller dans la rubrique tutoriels de Perl .

[estofilo]

Il est probable que le temps soit passé non pas à interpréter le Perl mais dans l'exécution à proprement parler de la requête SQL par le serveur et/ou dans le passage par le réseau des données du résultat.
Quand c'est possible il ne faut pas lire/stocker toutes les données et ensuite les traiter, mais les traiter au fur et à mesure qu'elles arrivent.

[philobedo]

La requête SQL met moins d'une seconde à s'exécuter.
C'est le stockage du résultat qui prend tout le temps.
Comme je passe par une fonction je suis obligé de lire/stocker mes résultats qui sont ensuite traité dans mon programme principal.
Je pourrais effectivement créer un fonction spécifique dans laquelle je lit/stocke et traite mes résultats, mais je préférerais éviter.
Ce que je trouve bizarre c'est que la même requête exécuté dans un client oracle (lecture et affichage de la donnée) prends environ 1s.

[estofilo]

La requête SQL met moins d'une seconde à s'exécuter.
C'est le stockage du résultat qui prend tout le temps.

Il y a combien de lignes dans le résultat?