Perl Dbi和存储过程

Question

如何通过使用perl和dbi对sql服务器来检索存储过程的返回值？ 可以有人提供的例子。

Answer 1

DBD :: ODBC t/dir中有一些示例（请参阅20SqlServer.t）。基本上你做的（不是一个完整的工作示例）：

my $output; 
my $input = 'fred'; 
my $sth = $dbh->prepare(q/{ ? = call myproc(?) }/); 
$sth->bind_param_inout(1, \$output, 100); 
$sth->bind_param(2, $input); 
$sth->execute 

现在$输出应该包含任何您的过程返回。确保你在bind_param_inout中设置了足够的长度（上面的100）。