Perl Dbi 和存储过程

Question

如何使用 perl 和 dbi 针对 sql server 检索存储过程的返回值？ 有人可以提供例子吗？

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 

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