exécuter le script pl/sql

Ce ptit bout de code peut peut-être aider, ça appelle du PL/SQL pour multiplier par 2 :

Code:

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
 
#!/usr/bin/perl --
 
#$ENV{'ORACLE_HOME'} = "/usr/local/instantclient10_1";
 
use strict;
use DBI;
 
 
my $dbh;
$dbh = DBI->connect("dbi:Oracle:host=127.0.0.1;sid=ORCL", "scott", "tiger")
        or die "Couldn't connect to Database" . $DBI::errstr;
 
my $res;
 
my $query =
"
declare
  vresult number(5);
begin
  vresult := 2*:VAL;
  :RES := vresult;
end;
";
 
my $sth = $dbh->prepare($query) or die "Couldn't prepare " . $DBI::errstr;
$sth->bind_param_inout( ":RES", \$res, 20) or die "Couldn't bind 1" . $DBI::errstr;;
$sth->bind_param( ":VAL", 4) or die "Couldn't bind 2" . $DBI::errstr;;
$sth->execute() or die "Couldn't execute " . $DBI::errstr;
 
print " Resultat => $res\n";
 
$dbh->disconnect;