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

Question

Как мне вызвать хранимые процедуры MySQL из Perl? Функциональность хранимых процедур является довольно новой для MySQL, и модули MySQL для Perl, похоже, еще не догнали.

Answer 1

Хранимым процедурам 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.

Answer 2

В разделе приведен пример нескольких наборов результатов в DBD :: mysql docs .

Answer 3

#!/usr/bin/perl
# Stored Proc - Multiple Values In, Multiple Out
use strict;
use Data::Dumper;
use DBI;
my $dbh = DBI->connect('DBI:mysql:RTPC;host=db.server.com',
    'user','password',{ RaiseError => 1 }) || die "$!\n";
my $sth = $dbh->prepare('CALL storedProcedure(?,?,?,?,@a,@b);');
$sth->bind_param(1, 2);
$sth->bind_param(2, 1003);
$sth->bind_param(3, 5000);
$sth->bind_param(4, 100);
$sth->execute();
my $response = $sth->fetchrow_hashref();
print Dumper $response . "\n";

Мне потребовалось некоторое время, чтобы понять это, но я смог получить то, что мне нужно, с помощью вышеизложенного. если вам нужно получить несколько возвращаемых строк, я думаю, вы просто ...

while(my $response = $sth->fetchrow_hashref()) {
    print Dumper $response . "\n";
}

Надеюсь, это поможет.

Answer 4

Прежде всего вам, вероятно, следует подключиться через библиотеку 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.

Answer 5

Привет, похоже на выше, но с использованием SQL Exec. Я не мог заставить команду CALL работать. Вам нужно будет заполнить все, что находится в квадратных скобках, и убрать квадратные скобки.

   use DBI;
   #START: SET UP DATABASE AND CONNECT
   my $host     = '*[server]*\\*[database]*';
   my $database = '*[table]*';
   my $user     = '*[user]*';
   my $auth     = '*[password]*';

   my $dsn = "dbi:ODBC:Driver={SQL Server};Server=$host;Database=$database";
   my $dbh = DBI->connect($dsn, $user, $auth, { RaiseError => 1 });

   #END  : SET UP DATABASE AND CONNECT
   $sql = "exec *[stored procedure name]* *[param1]*,*[param2]*,*[param3]*;";
   $sth = $dbh->prepare($sql);
   $sth->execute or die "SQL Error: $DBI::errstr\n";