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).