PerlからMySQLストアドプロシージャを呼び出すにはどうすればよいですか？

Question

PerlからMySQLストアドプロシージャを呼び出すにはどうすればよいですか？ストアドプロシージャの機能はMySQLにとってかなり新しく、Perl用のMySQLモジュールはまだ追いついていないようです。

Answer 1

まず、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 2

section on Multiple result sets in the DBD::mysql docsに例があります。

Answer 3

データセットを生成する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 4

#!/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 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";