Perl DBI - execute o SQL Script com várias instruções
Eu tenho um arquivo sqltest.sql usado para executar algum SQL (criar objeto / atualizar / excluir / inserir) que pode se parecer com isso
CREATE TABLE test_dbi1 (
test_dbi_intr_no NUMBER(15)
, test_dbi_name VARCHAR2(100);
UPDATE mytable
SET col1=1;
CREATE TABLE test_dbi2 (
test_dbi_intr_no NUMBER(15)
, test_dbi_name VARCHAR2(100);
Normalmente, eu usaria apenas o SQLPLUS (de dentro do Perl) para executar este test.sql usando este comando: @ test.sql
Existe uma maneira de fazer a mesma coisa, usando o DBI em Perl? Até agora, eu achei DBI só pode executar uma declaração de cada vez, e sem o ";" no fim.