Как да извикам MySQL съхранени процедури от Perl?

Съхранените процедури на 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.

Можете да инсталирате най-новия DBD, като използвате CPAN.