perl 如何调用存储过程？

herolyh

my $sth=$dbh->prepare("call key_price_reset('$tmpkey','$update');
");
$sth->execute();
$sth->finish();
执行结果:
[Wed Feb  7 19:42:48 2007] first1.cgi: DBD::Oracle::st execute failed: ORA-00911
: invalid character (DBD ERROR: error possibly near <*> indicator at char 35 in
'call key_price_reset('again001','')<*>;
[Wed Feb  7 19:42:48 2007] first1.cgi: ') [for Statement "call key_price_reset('
again001','');
[Wed Feb  7 19:42:48 2007] first1.cgi: "] at first1.cgi line 68.

大大狗

原帖由 herolyh 于 2007-2-7 19:45 发表
my $sth=$dbh->prepare("call key_price_reset('$tmpkey','$update');
");
$sth->execute();
$sth->finish();
执行结果:
[Wed Feb  7 19:42:48 2007] first1.cgi: DBD::Oracle::st execu ...

红色的部分是什么 存储过程带参数

月波无漾

直接用执行system调用echo "exec procs"|sqlplus -s user/passwd 算了

herolyh

my $sth=$dbh->prepare("BEGIN key_price_reset(?,?);END;");
$sth->bind_param( 1,$key);
$sth->bind_param_inout( 2, \$update, 1000 );
$sth->execute();
这样就可以了，不明白！问题已解决！

sean88

原帖由 herolyh 于 2007-2-8 19:05 发表
my $sth=$dbh->prepare("BEGIN key_price_reset(?,?);END;";
$sth->bind_param( 1,$key);
$sth->bind_param_inout( 2, \$update, 1000 );
$sth->execute();
这样就可以了，不明白！问 ...

想请问一下sth->bind_param_inout( 2, \$update, 1000 );
这个参数是可以输入也可以返回值的吗?如果是可以返回的应该怎么样获取?可以解释一下这个写法吗?