probleme d import dans une base de données
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:
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 |