Discussion :

[calimero642]

Bonjour a tous,
j ai un peiti probleme d import dana la base de donnée.

J ai programmer pour importer un fichier csv de donnée dans la table d une base de données. Mais le soucy c est qu il me rempli rien alors que le fichier me parait rempli. Comment puis faire pour verifier qu il est bien fermé !!!!!

j ai un close mais j ai doute car si je lance la fonction a part c est a dire sans effectuer un import a partir du programme principal la base de remplie. J ai l impression que le fichier n est pas fermé !

Merci D avance Jules

voila mon prog d import :

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
 
#!/usr/bin/perl
use strict;
use DBI;
package sous_fonc_import_base_partie_2 ;
#Module base de donnees
sub Fonct_Import_Data_partie_2
{
        print"\nTOTO\n";
        my $dbh = DBI->connect("DBI:mysql:Outils_LAN","jules_rtp","jules") || die "Echec de la connection";
        #my $variable_ma_base de_donnees =
        #DBI->connect=connexion a la database
        #("DBI:mysql:switch_sxb"=nom de la database,"jules"=user,"jules"=password) || die "Echec de la connection";
        $dbh->do("DELETE FROM IP_MAC_Cross_Over");
        #Ici on specifie la table
        $dbh->do("LOAD DATA LOCAL INFILE  '/home/rappju/projet_2/FINAL.csv' REPLACE INTO TABLE IP_MAC_Cross_Over FIELDS TERMINATED BY ';'");
        $dbh->disconnect;
}
1;
#&Fonct_Import_Data_partie_2

[GLDavid]

Si tu pouvais écrire en meilleur français, ce serait encore mieux.
Merci de faire attention à votre style d'écriture.

[calimero642]

Oui c est vrai j ai écrit un tres mauvais francais. Et c'est pourquoi je vais reformuler ma question. Existe t-il une méthode pour forcer la fermeture de l'ensemble des fichiers ouverts ?

Encore mes excuses
Jules

[Jedai]

Oui, finir le programme (avec un exit() ou en atteignant la fin du script)... Mais pourquoi aurais-tu besoin de faire ça ? D'autant que dans ton snippet tu n'ouvres aucun fichier (ou plutôt tu n'ouvres aucun fichier par l'intermédiaire de Perl).
Quel est ton problème finalement ? Ton programme marche-t-il ou pas ?

--
Jedaï

[calimero642]

Merci je vais essayer avec un exit en faite ce qui ce passe c est que j ai un tres long programme perl qui alimente un fichier ! et tout a la fin alors que le fichier est normallment fermé j ai un import de ce fichier dans une base sauf que la le fichier est bien rempli mais la base est vide ! et la ou ca devient tordu c est lorsque je lance l import apres la fin du programme et ben la la base est remplie !!!!!
et oui j avais bien dit c est tordu donc en faite j ai l impression que mon fichier est pas fermé.

merci Jules

[gerald2545]

tu n'as pas un message d'erreur quelque part à nous mettre sous la dent.
Quand tu dis que tu charges les données à partir de ton fichier après avoir fermé le programme, tu exécutes

Code :

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

LOAD DATA LOCAL INFILE  '/home/rappju/projet_2/FINAL.csv' REPLACE INTO TABLE IP_MAC_Cross_Over FIELDS TERMINATED BY ';

en ligne de commande sous mysql?

[calimero642]

Ben non justement c est la le HIC j ai pas de message d erreur qet quand je dit que lance mon module import tout seul c est en enlevant le commentaire devant #&Fonct_Import_Data_partie_2
et je fais ./importbase



Donc voila!
Jules