perl 如何调用存储过程？

herolyh

请问perl如何调用oracle存储过程！
可以连接上oracle数据库，执行一般的查询语句，但是如何调用存储过程的代码如何写呢？

flw

先按一般的方法试试，看行不行。

herolyh

my $sth=$dbh->prepare("
BEGIN
key_price_reset('$tmpkey','');
END;");
$sth->execute();
这样不行
$dbh->do("
BEGIN
key_price_reset('$tmpkey','');
END;
");
这样也不行

flw

去掉 BEGIN END 呢？

herolyh

不行

flw

咋个不行法？
google 一下？

herolyh

[Wed Feb  7 18:55:57 2007] first1.cgi: DBD::Oracle::st execute failed: ORA-00900
: invalid SQL statement (DBD ERROR: OCIStmtExecute) [for Statement "key_price_re
set('again001','');"] at first1.cgi line 66.
报错了！各种方法都尝试了，总是报错！郁闷的不行了！

flw

前面加个 exec 试试？

herolyh

[Wed Feb  7 19:37:18 2007] first1.cgi: DBD::Oracle::st execute failed: ORA-00900
: invalid SQL statement (DBD ERROR: OCIStmtExecute) [for Statement "exec key_pri
ce_reset('gg','');

flw

加个 call 试试？