PerlでSQLファイルを実行

Question

私たちはSQLを実行し、データをテーブルに格納するPerlスクリプトを持っています。 単一のSQL文を提供する代わりに、複数のSQL文を.sqlファイルにまとめて渡す必要があります。私たちのプログラムは、単一のSQL文を期待しているので、プログラムが失敗することは知っています.sqlファイルからもそうではありません。どのようにして.sqlファイル（複数のINSERT文を持つ？）で動作させるには？私たちはDBIパッケージを使用しています。

コードの小さなスニペット：あなたがすべてで、このためにPerlを必要としない

$sth = $dbh->prepare("/home/user1/tools/mytest.sql"); 
$sth->execute || warn "Couldn't execute statement"; 
$sth->finish(); 

Answer 1

あなたが望むものを正確にわからない...

あなたはDBIオブジェクトを作成すると、することができます繰り返し使用してください。ここで私は、ファイルからSQL文の後にSQL文を読み、順番に一つ一つを処理している：私はprepareではなくファイル名にSQL文を入れている

​​

通知はSQLが含まれていますステートメント。それはあなたの問題だろうか？

Answer 2

。

mysql -h [hostname] -u[username] -p[password] [database name] < /home/user1/tools/mytest.sql

あなたの情報で、[変数]を置き換える：ちょうどmysqlのコマンドラインクライアントを使用します。

注： -uまたは-pの後にスペースはありません。 MySQLサーバが同じマシン上で実行されている場合は、（ローカルホストへのデフォルト）-h [ホスト名]を省略することができます

Answer 3

ここで私はそれをやったことがあります。私の場合は、1行につき1つのSQLを想定していませんが、私の例は少し良くなります:)

sub get_sql_from_file { 
    open my $fh, '<', shift or die "Can't open SQL File for reading: $!"; 
    local $/; 
    return <$fh>; 
}; 

my $SQL = get_sql_from_file("SQL/file_which_holds_sql_statements.sql"); 
my $sth1 = $dbh1->prepare($SQL); 
$sth1->execute(); 

Answer 4

DDLの回避策があります。まずSQLファイルをスラップして、その内容をBEGIN ... END;のキーワードに囲む必要があります。同様に：

sub exec_sql_file { 
    my ($dbh, $file) = @_; 

    my $sql = do { 
     open my $fh, '<', $file or die "Can't open $file: $!"; 
     local $/; 
     <$fh> 
    }; 

    $dbh->do("BEGIN $sql END;"); 
} 

このサブルーチンは、DDL（例えば、データベースのダンプ）内の複数の文で（SQL）スクリプトを実行することができます。