1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| use DBI;
use DBD::Oracle;
my $dbh = DBI->connect('dbi:Oracle:', "login@base2", "mdp",{ RaiseError => 1, AutoCommit => 0 });
my $query = "COPY FROM login/mmdp@base1 TO login/mdp@base2 INSERT MA_TABLE(id_table,nom_table) USING SELECT c.id_table,c.nom_table FROM AUTRE_TABLE";
my $selectTab = $dbh->prepare($query);
$selectTab->execute;
if ($@)
{
$selectTab->finish;
system("printErreur \"$erreur => ORA-".DBI::err." ...\"");
$dbh->disconnect;
}
else
{
$selectTab->finish;
$dbh->disconnect;
} |
