Как передать входной файл запроса SQL в подпрограмму Perl dbi

Question

Мне нравится создавать общий Perl-скрипт, который будет вводить SQL-запрос из отдельного файла и использовать его с Perl DBI (подпрограмма), а не жестко кодировать инструкцию. Может кто-нибудь показать мне пример, как это сделать?

Например, у меня есть это в подпрограмме:

sub get_val
{
  my $sth = $dbh->prepare(q{SELECT count(*) AS COUNT FROM TEST1) ||
      die ("Can't connect: ".$DBI::errstr."\n");         
  $sth->execute;
  my $row = $sth->fetchrow_hashref;
  $sth->finish;
  return $row->{COUNT};
}

Answer 1

Это было бы общей идеей:

$/ = ';';
open FH, "< file.sql";
while (<FH>) {
    $dbh->do($_);
    # or:
    # my $sth = $dbh->prepare($_);
    # $sth->execute();
}
close FH;

Конечно, это не обязательно обрабатывает комментарии, или ; символы в строках в кавычках и т. Д. Но это должно направить вас в правильном направлении.

Или, если вы знаете, что файл будет содержать только одно утверждение:

undef $/;
open FH, "< file.sql";
my $sth = $dbh->prepare(<FH>);
close FH;
$sth->execute();