Perl Dbi和存儲過程

Question

如何通過使用perl和針對sql server的dbi來檢索存儲過程的返回值？ 有人可以舉例嗎。

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）。