如何从Perl调用MySQL存储过程？存储过程功能对于MySQL来说还很新，Perl的MySQL模块似乎还没有赶上。

解决方案

回答

首先，我们可能应该通过DBI库进行连接，然后应该使用绑定变量。例如。就像是：

#!/usr/bin/perl
#
use strict;
use DBI qw(:sql_types);

my $dbh = DBI->connect(
            $ConnStr,
            $User,
            $Password,
            {RaiseError => 1, AutoCommit => 0}
          ) || die "Database connection not made: $DBI::errstr";
my $sql = qq {CALL someProcedure(1);}    } 

my $sth = $dbh->prepare($sql);
eval {
  $sth->bind_param(1, $argument, SQL_VARCHAR);
};
if ($@) {
 warn "Database error: $DBI::errstr\n";
 $dbh->rollback(); #just die if rollback is failing
}

$dbh->commit();

请注意，我还没有测试过，我们必须在CPAN上查找确切的语法。

回答

DBD :: mysql文档中有关多个结果集的部分中有一个示例。

回答

生成数据集的MySQL存储过程需要我们使用Perl DBD :: mysql 4.001或者更高版本。 (http://www.perlmonks.org/?node_id=609098)

以下是将在较新版本中运行的测试程序：

mysql> delimiter //
mysql> create procedure Foo(x int)
  -> begin
  ->   select x*2;
  -> end
  -> //

perl -e 'use DBI; DBI->connect("dbi:mysql:database=bonk", "root", "")->prepare("call Foo(?)")->execute(21)'

但是，如果我们使用的DBD :: mysql版本太旧，则会得到以下结果：

DBD::mysql::st execute failed: PROCEDURE bonk.Foo can't return a result set in the given context at -e line 1.

我们可以使用CPAN安装最新的DBD。