1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
sub connect_bdd(){
my $dbh = DBI->connect("dbi:Oracle:host=localhost;sid=XE",
'MAXIME','123456', {RaiseError => 1, AutoCommit => 1})
or die "Can't connect to database $DBI::errstr\n";
print "On est dans la base\n";
return $dbh;
}
sub exec_requete(){
my $dbh=$_[0];
my $fichier ="list_emp.txt";
my $tablename="employe";
my $statement = "bulk insert $tablename
FROM '$fichier'
WITH
(
FIELDTERMINATOR = '\t'
, ROWTERMINATOR = '\n'
)
" ;
my $req=$dbh->prepare($statement);
$req->execute();
}
sub disconnect_bdd(){
$_[0]->disconnect;
}
my$dbh = &connect_bdd();
&exec_requete($dbh);
&disconnect_bdd($dbh); |
Partager