bonjour

Je découvre tout juste le perl, il faudrait que ja fasse un script qui se connecte à une bdd oracle pour récupérer des infos et les stocker dans un fichier
voila ce que j'ai déjà écris.

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
30
31
#!/usr/bin/perl
use strict;
use warnings;
 
#Connexion à la BDD
my $dbh = DBI->connect("dbi:Oracle:nom_base", 'utilisateur', 'mdp') or die ("Connection impossible à la base de donnees)";
 
 
#Début de la requête
my $requeteEvents = 
select * 
from jrnl_event where to_char(DT_SYST,'ddmmyy hhmm')>concat(to_char(sysdate-1,'ddmmyy'),' 0530') and (id_type_event='ARF' or id_type_event='ARRET') and (id_ress like 'PK%');
 
my $requeteEvents = $dbh->prepare($requeteEvents)
 
$requeteEvents->execute || die "Problème de sélection : $DBI::errstr";
while (my ($champ1, $champ2, ...) = $requeteEvents->fetchrow_array) {
print "Contenu: $champ1, $champ2, ... \n";
}
 
# On ferme la requête select
$requeteEvents->finish; 
 
#Création d'un nouveau fichier
open FILE, '>pannes.xls' or die "pannes.xls : $!\n";
 
#Fermeture du fichier
close FILE;                 
 
# Déconnexion de la BDD
$dbh->disconnect;
Donc j'ai testé la requete sur sql plus, elle fonctionne donc reste plus qu'a affecter le résulat de la requête dans un fichier.

Je voudrais savoir si déjà le sript est bon, et comment exporter le résultat de ma requête dans un fichier (dans le script j'ai juste créé le fichier pannes.xls)

Merci de m'aider