#!/usr/bin/perl
# Fichier Reception
#print "Insertion des donnees dans la table reception\n";
open (FICHIER, "<P:\\Resul\\reception.txt") or die("Impossible de lire le fichier! \n");
print $ligne;
chomp $ligne;
my $ligne=<FICHIER>;
#Connexion à la base de données transfusion.
use warnings;
use strict;
use DBI; # Charger le module DBI
# Parametres de connexion à la base de données
my $BaseDeDonnees = "transfusion";
my $NomHote = "localhost"; # Il est possible de mettre une adresse IP
my $login = "fngoala"; # login
my $MotDePass = ""; # Nous n'avons pas de mot de pass
# Connection à la base de données mysql
my $dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;",
$login, $MotDePass )
or die "Connection impossible à la base de donnees $BaseDeDonnees !";
print "Creation de la table Reception\n";
my $SQLCreationTablesReception = <<"SQL";
CREATE TABLE Reception (
num_mess INT NOT NULL ,
num_recep INT NOT NULL ,
date_livr VARCHAR( 20 ) NOT NULL ,
civ VARCHAR( 5 ) NOT NULL ,
nom VARCHAR( 250 ) NOT NULL ,
nom_mari VARCHAR( 250 ) NOT NULL ,
prenom VARCHAR( 250 ) NOT NULL ,
date_nais VARCHAR( 20 ) NOT NULL ,
type_pro INT NOT NULL ,
ref_pro INT NOT NULL ,
num_edital INT NOT NULL ,
sexe VARCHAR( 1 ) NOT NULL ,
nom_edit VARCHAR( 250 ) NOT NULL ,
nom_mari_edit VARCHAR( 250 ) NOT NULL ,
prenom_edit VARCHAR( 250 ) NOT NULL ,
date_nais_edit VARCHAR( 20 ) NOT NULL ,
num_comm INT NOT NULL ,
num_livrai INT NOT NULL ,
PRIMARY KEY ( num_mess )
) COMMENT = 'Les réceptions';
SQL
$dbh->do($SQLCreationTablesReception)
or die "Impossible de creer la table Reception\n\n";
# Lecture des fichiers
while (my $ligne){
my $NUMMESS=split( /-/, $ligne );
}
close (FICHIER);
Perl et mysql
Répondre avec citation
Partager