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 32 33 34 35 36
| #!/usr/bin/perl
use strict;
use warnings;
use DBI;
#Connexion à la BDD
my $dbh = DBI->connect("dbi:Oracle:producim", 'dept_85', 'dept_85') or die ("Connection impossible à la base de donnees)";
#Début de la requête
my $requeteEvents =
select count (id_type_event)
from jrnl_event where to_char(DT_SYST,'ddmmyy hhmm')>concat(to_char(sysdate-7,'ddmmyy'),' 0530')
and (id_type_event='ARF' or id_type_event='ARRET')
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";
}
my $file = 'export.csv';
#Création d'un nouveau fichier
open FILE, ">".$file or die "$file : $!\n";
while (my ($champ1, $champ2, ...) = $requeteEvents->fetchrow_array) {
print FILE "Contenu: $champ1, $champ2, ... \n";
}
#Fermeture du fichier
close FILE;
# On ferme la requête select
$requeteEvents->finish;
# Déconnexion de la BDD
$dbh->disconnect; |
Partager