Discussion :

[spriswtor]

Bonjour j'aimerais extraire des données de ma base sous oracle vers un fichier plat

débutant dans le langage perl, je voudrais savoir quel sont mes démarche a suivre ?


1 - Dans une premier temps ,je me connecte a ma base de donné avec :

Code perl :

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
my $dbp = DBI->connect( "dbi : Pg:dbname=premieredb", "login", "mot_de_passe" ) 
  or die "connexion impossible !";  
 
 
#2 -insertion d'une donnée 
$dbp->do("insert into film values ('test_titre', 'test_acteur','test_jour');") 
  || die "pb de requête : $DBI::errstr"; 
 
#3- requete postgresql 
my $requete = "select acteur, jour from film;"; 
 
#4-prépare la requête sql 
my $version = $dbp->prepare($requete); 
 
#5- exécution de la requête sql 
$version->execute() || die "pb de sélection : $DBI::errstr"; 
 
while ( my ( $acteur, $jour ) = $version->fetchrow_array ) { 
  print "result: $acteur du jour $jour\n"; 
}

Je voudrais savoir quel sera l'intruction qui part la suite me permetra de d'envoyer mon resultat sql vers un fichier en csv

[Lolo78]

A priori, si le reste de ce que tu as fait marche comme tu le désires (je n'ai pas vraiment vérifié), remplace simplement ceci:

Code :

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

1
2
3
4
 
while ( my ( $acteur, $jour ) = $version->fetchrow_array ) { 
  print "result: $acteur du jour $jour\n"; 
}

par une impression au format CSV.

Au début du programme, tu ouvres un fichier destination, par exemple:

Code :

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

1
2
3
 
my $output = "cible.csv";
open my $OUT, ">", $output or die "ouverture impossible de $output $!";

Ensuite, tu modifies ta boucle while comme suit (en supposant que ton séparateur de champs est la virgule):

Code :

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

1
2
3
4
 
while ( my ( $acteur, $jour ) = $version->fetchrow_array ) { 
    print $OUT join ",", $acteur, $jour, "\n"; 
}

Ou encore:

Code :

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

1
2
3
4
 
while ( my ( $acteur, $jour ) = $version->fetchrow_array ) { 
    print $OUT "$acteur,$jour\n"; 
}

C'est tout. Bref, c'est très simple. Mais n'hésite pas à demander des explications si tu ne comprends pas bien quelque chose.

Bon, il existe aussi des modules Perl pour gérer finement le format CSV, mais ça ne me paraît pas utile de se compliquer la vie dans un cas aussi simple.

Laurent.

PS: tu parles de base Oracle et l'un des commentaires de ton code parle de postgreSQL. ??

[spriswtor]

salut merci finalement je vais opté pour la methode sqlplus qui il parais est plus simple que d'utilser du perl

[Lolo78]

Fais comme ça te chante, mais tu peux aussi appeler une requête sqlplus depuis Perl, ça permet de reformater finement les données retournées par Oracle.