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