Мне надо выполнить SQL скрипт с парой сотен стейтментов средствами DBI и DBD::Oracle.
От нагугленных решений чуть не разбил себе голову фейспалмами:
http://stackoverflow.com/questions/4217306/execute-sql-file-in-perl
или просто заявления о том, что это не совсем реализуемо:
http://www.perlmonks.org/?node_id=272308
В кратце:
sub exec_sql {
my ($dbh, $file) = @_;
open(my $fh, '<', $file);
my $sql = do { local $/ = undef; <$fh> };
close($file);
$dbh->do($sql);
}
split /;/, $sql кажется неправильным.Помогите пожалуйста!
