Esegui file SQL in Perl

Question

Abbiamo uno script Perl che esegue un SQL e inserisce i dati nella tabella. Ora invece di fornire una singola istruzione SQL, vogliamo passare un gruppo di essi riunendoli in un file .sql. Sappiamo che il nostro programma fallirà perché si aspetta una singola istruzione SQL, non un gruppo di essi (anche questo da un file .sql). Come facciamo a farlo funzionare con un file .sql (con più istruzioni INSERT?). Stiamo usando il pacchetto DBI.

Un piccolo frammento di codice:

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

Answer 1

Non

esattamente sicuro di quello che vuoi ...

Una volta creato un oggetto di DBI, si può usarlo più e più volte. Qui sto leggendo istruzione SQL dopo la dichiarazione di SQL da un file e l'elaborazione di tutti e di ciascuno, al fine di:

use DBI; 

my $sqlFile = "/home/user1/tools/mytest.sql" 

my $dbh = DBI::Connect->new($connect, $user, $password) 
    or die("Can't access db"); 

# Open the file that contains the various SQL statements 
# Assuming one SQL statement per line 

open (SQL, "$sqlFile") 
    or die("Can't open file $sqlFile for reading"); 

# Loop though the SQL file and execute each and every one. 
while (my $sqlStatement = <SQL>) { 
    $sth = dbi->prepare($sqlStatement) 
     or die("Can't prepare $sqlStatement"); 

    $sth->execute() 
     or die("Can't execute $sqlStatement"); 
} 

Si noti che sto mettendo l'istruzione SQL nel nome del file prepare e non che contiene il codice SQL dichiarazione. Potrebbe essere il tuo problema?

Answer 2

Non è necessario perl per questo a tutti. Basta usare il mysql client a riga di comando:

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

sostituire le variabili [] con le tue informazioni.

Nota spazio dopo -u o -p. Se il server MySQL è in esecuzione sulla stessa macchina è possibile omettere -h [hostname] (il default è localhost)

Answer 3

Ecco come l'ho fatto. Nel mio caso non presumo un SQL per riga e presumo, il mio esempio è un po 'meglio :)

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

C'è una sorta di soluzione alternativa per DDL. È necessario innanzitutto svuotare il file SQL e quindi includerlo nel contenuto delle parole chiave BEGIN ... END;. Come:

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;"); 
} 

Questa subroutine permette di eseguire DDL (SQL) script con più istruzioni all'interno del database (ad esempio discariche).