如何从Perl调用MySQL存储过程？

如何从Perl调用MySQL存储过程？存储过程功能对于MySQL来说是相当新的,而Perl的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.

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