Discussion :

[bakka]

Bonjour,

J'ai un problème de sortie après ma requête je ne sais pas trop comment faire resortir l'affichage "tableau"

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
22
23
24
25
26
27
28
 
#!D:\perl\bin\perl.exe
use DBI;
 
$dbname="base";
$dbuser="user";
$dbpass="pass";
 
my $dbh = DBI->connect("dbi:Oracle:$dbname", $dbuser, $dbpass, {AutoCommit => 0})
          || die "Unale to connect to $dbname: $DBI::errstr\n";
 
 
open(FILEIN,'<c:\\abaque.txt');
 
print ("entrez une date au format yyy-mm-jj : \n");
$DATE = <STDIN>;
 
$query="MA REQUETE";
 
$sth = $dbh->prepare($query);
$sth->execute();
@ligne = $sth->fetchrow_array;
print "@ligne\n";
print FILEIN "@ligne\n";
 
$sth->finish();
$dbh->disconnect || warn $dbh->errstr;
close FILEIN || die "Problème à la fermeture : $!";

avec ce script j'obtient simplement ma premiere ligne:

00:00 872

et j'aimerais obtenir le meme affiche qu'avec ma requete, dans ce style :

HEURE COUNT(DISTINCTF1.IDSESSION)
----- ---------------------------
00:00 872
01:00 422
02:00 246
03:00 143
04:00 154

J'ai donc un problème de sortie avec le tableau, peut etre que je dois utiliser un foreach ?

[Jedai]

Dans ton cas, il te suffit d'utiliser un while() :

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
22
23
24
25
26
27
28
29
 
#!D:\perl\bin\perl.exe
use DBI;
 
$dbname="base";
$dbuser="user";
$dbpass="pass";
 
my $dbh = DBI->connect("dbi:Oracle:$dbname", $dbuser, $dbpass, {AutoCommit => 0})
          || die "Unale to connect to $dbname: $DBI::errstr\n";
 
 
open(FILEIN,'<c:\\abaque.txt');
 
print ("entrez une date au format yyy-mm-jj : \n");
$DATE = <STDIN>;
 
$query="MA REQUETE";
 
$sth = $dbh->prepare($query);
$sth->execute();
while( @ligne = $sth->fetchrow_array() ) {
  print "@ligne\n";
  print FILEIN "@ligne\n";
}
 
$sth->finish();
$dbh->disconnect || warn $dbh->errstr;
close FILEIN || die "Problème à la fermeture : $!";

Les fonctions fetchrow_*() comme leur nom l'indique ne récupèrent qu'une seule ligne à la fois, il existe aussi des fonctions fetchall_* qui récupère tous les résultats d'une requête, mais je te conseille de ne les utiliser que si tu y est obligé car tu gaspilles de la mémoire vive ainsi.

Par ailleurs tu n'utilises ni "strict", ni "warnings"... Tôt ou tard tu t'en mordras les doigts, jette plutôt un coup d'oeil à ce sujet sur le style en Perl.

--
Jedaï

[bakka]

Merci pour ton aide j'arrive bien a recuperer toutes les lignes.
J'ai ete voir le site que tu m'as laisse j'ai donc commence a ajouter mes variable avec le "my $" mais j'ai un probleme pour certaine variable comme $query $sth et @ligne , je ne sais pas comment les déclarrer.
J'ai essayé en déclarant comme ceci:

Code :

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

1
2
3
4
5
6
7
8
 
my $dbname="WBA";
my $dbuser="ftm_admin";
my $dbpass="ftm_admin";
 
my $query;
my $sth;
my @ligne;

je me demande si il ne faut pas leurs donner des valeurs de base comme "0" ?

[Jedai]

Tu n'as en général pas besoin de déclarer une variable avant de commencer à l'utiliser, par exemple ici il suffit de remplacer :

Code :

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

$sth = $dbh->prepare($query);

par

Code :

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

my $sth = $dbh->prepare($query);

Ce n'est pas comme en C, tu n'es pas obligé de déclarer les variables locales en début de bloc.

Néanmoins méfie-toi de ne pas déclarer tes variables trop tard non plus, en particulier lorsque tu veux utiliser une variable dans une boucle et que tu veux te souvenir de sa valeur d'une itération sur l'autre, il faut la déclarer à l'extérieur de la boucle, sinon elle est réinstantiée à chaque itération et donc sa valeur précédente est oublié (il s'agit en réalité d'une nouvelle variable portant le même nom). Compare :

Code :

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

1
2
3
4
5
6
7
8
9
10
for (1..10) {
  my $i++;
  print "$i\n";
} # imprime 1, 10 fois
 
my $i;
for (1..10) {
  $i++;
  print "$i\n";
} # imprime les entiers de 1 à 10

(undef++ == 1, ici j'ai omis l'initialisation à 0 à dessein, pour mieux illustrer le danger, mais il y a des cas où l'initialisation est réellement faite dans la boucle et où tu devras quand même déclarer la variable à l'extérieur)

--
Jedaï

[Woufeil]

Bonjour,

Pour répondre à ta dernière question, il n'est pas non plus utile d'initialiser une variable déclarée. Si tu ne le fais pas, elle vaudra undef (c'est à dire 0 ou "" selon les cas).

[bakka]

Merci pour votre aide sa m’a pas mal éclaircit sur la programmation perl, et j'commence a apprécier de plus en plus ce language