oracle - 如何在 n perl DBD::Oracle 中使用用户创建的函数

Question

我在 oracle 11g r2 中创建了一个函数，我想在插入记录时调用该函数。

以下是我的代码块。

my $SQL="insert into sample values ( :sno, :amount , :func )";
my $sth =$dbh-> prepare($SQL);
$sth->bind_param(":amount" , $amount );
$sth->bind_param(":sno" , $i);

$sth->bind_param(":func" , my_func($amount)); 
$sth-> execute();
# I want the third parameter to be output of the function my_func.

Answer 1

my $SQL = "insert into sample values (?, ?, my_func(?))";
my $sth = $dbh->prepare($SQL);

$sth->execute($i, $amount, $amount);