script perl avec oracle

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:

---

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

Salut !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my $file = 'mon_fichier_a_moi'; #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;

---

Perso je te suggère de générer un .csv, comme ca tu mets ton délimiteur et Excel fera le tri ;)

@+
Mr6

PS : la question ne portait que sur la génération du fichier ? ton post irait mieux coté langage la prochaine fois, ici c'est SGBD, donc on s'attend plutot à des questions type usage de DBI ;)

J'avais pas fait attention à la portion "si le script est bon" ;)

Du coup il te faut un "use DBI;" en début de script (ah ben tiens, mon PS de tt à l'heure part à la poubelle), et peut-être vérifier si tu dois pas appeler aussi un truc style "use DBD::Oracle;".

Ta requête doit être mise entre quotes pour être assignée à ta variable, et il te manque un point-virgule à la fin de ta ligne "prepare".
Voili-voilou !

@+
Mr6

Salut!

Merci pour tes réponses!
Voila mon code modifié:

Code:

---

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;

---

Autre question: j'aimerai faire 2 reqêtes à stocker dans mon fichier, comment faire?

Citation:

---

Perso je te suggère de générer un .csv, comme ca tu mets ton délimiteur et Excel fera le tri

---

comment excel fait le tri?

Merci pour ton aide

Code:

---

1 2 3 4

#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);

---

2 requetes ? Ben 2 fois ton code ? :mrgreen:
Ou alors tu te fais une petite fonction qui attend ta requete en entrée et qui te renvoie directement ton résultat, que tu as juste à imprimer.
Style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my @liste_de_listes = oracle_req($requeteEvents);   sub oracle_req {   my $req = "@_";   my $sth = $dbh->prepare($req);   $sth->execute || die "Problème de sélection : $DBI::errstr";   my @result_list;   while (my ($champ1, $champ2, ...) = $requeteEvents->fetchrow_array) {   push @result_list, [$champ1,$champ2,...];   } return @result_list; }

---

A tester et corriger bien sûr, c'est juste pour te donner une idée car ca fait trop longtemps que j'ai pas joué avec DBI...

Pour Excel (ou calc d'ailleurs, ca doit marcher pareil), je te conseille de constater par toi-même : tu te fais un fichier texte, avec chaque élément séparé par un ; et tu l'enregistres en CSV. Tu verras ce qu'il te dira quand tu voudras l'ouvrir avec ;) (faut être curieux de temps en temps :mouarf: )
Après si tu veux générer un fichier XLS il y a un module pour ca (ca me dit qqch cette expression... pourquoi ca sent la pomme dans le coin ? :dehors:)

@+
Mr6
*trop dur le lundi !*