perl呼叫儲存過程

PERL DB中的使用說明:

--一般呼叫方式:

$csr = $db->prepare(q{
BEGIN
PLSQL_EXAMPLE.PROC_NP;
END;
});
$csr->execute;

--帶傳入引數的呼叫
my $err_code = -20001;

$csr = $db->prepare(q{
BEGIN
PLSQL_EXAMPLE.PROC_IN(:err_code);
END;
});

$csr->bind_param(":err_code", $err_code);

eval {
$csr->execute;
};

--帶傳入,輸出引數的呼叫
my $test_num = 5;
my $is_odd;

$csr = $db->prepare(q{
BEGIN
PLSQL_EXAMPLE.PROC_IN_INOUT(:test_num, :is_odd);
END;
});

# The value of $test_num is _copied_ here
$csr->bind_param(":test_num", $test_num);

$csr->bind_param_inout(":is_odd", $is_odd, 1);

# The execute will automagically update the value of $is_odd
$csr->execute;