DBI运行存储过程的写法

perl利用 DBI 和 DBD::Oracle连接 Oracle数据库，其中安装DBD::Oracle，需要去oracle.com网站上下客户端的一堆 .so、.h等东西，解压缩到某个目录，比如 .so在 /usr/lib，然后设置环境变量ORACLE_HOME到该目录上 export ORACLE_HOME=/usr/lib，这样子才可以 perl Makefile.PL ; make ; make install过。
perl具体怎么连接怎么操作数据库，网上很多，这里就讲存过。代码如下：

$sth = $dhb->prepare ("BEGIN :r = func_name(:v1, :v2); END;");

## 绑定变量 v1，即输入
$sth->bind_param(";v1", "dorainm");

## 存过有2个返回值哦
my ($rv1,$rv2);


## 绑定第一个返回值
$sth->bind_param_inout(":v2", \$vr2, 100);
$sth->bind_param_inout(":r", \$vr1, 100);


## 运行了
$sth->execute();

## 结果
print "func_name returned '$rv1' and update changeme to '$rv2'\n";