Perl Dbi和存储过程

Question

How can i retrive the return value of stored procedure by using perl and the dbi against sql server ? could someone provide example.

Answer 1

There are examples in DBD::ODBC t/ dir (see 20SqlServer.t). Basically you do (not a full working example):

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 

Now $output should contain whatever your procedure returned. Make sure you set then length in bind_param_inout sufficiently (the 100 above).