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 ?