Назначение

Метод execute_for_fetch используется для выполнения каких-либо массовых операций и часто используется в совокупности с методом execute_array, однако может применяться и самостоятельно. Основное различие между методами execute_array и execute_for_fetch в способе привязки параметров: первый метод допускает постолбцовое или построчное привязывание параметров, а второй – только построчное. Для получения значений привязываемых параметров метод вызывает специальную подпрограмму, которая и предоставляет требуемый набор значений.

Метод execute_for_fetch вызывает циклически подпрограмму, задаваемую параметром $fetch_tuple_sub, без передачи ей каких-либо аргументов до тех пор, пока она не вернет значение false (это означает, что подпрограмма исчерпала предоставление наборов привязываемых значений). Каждый возвращенный подпрограммой набор подставляемых значений используется для привязки значений с помощью вызова $sth- >execute(@$tuple).

В скалярном варианте исполнения метод execute_for_fetch возвращает либо undef при наличии ошибок, либо количество наборов значений, использованных им для привязки параметров. Подобно методам execute и execute_array, метод execute_for_fetch возвращает ноль как "0E0" (false возвращается в случае ошибки). Для локализации и детализации ошибок, возникших в процессе исполнения метода, служит массив @tuple_status, в котором содержится информация о том, какие из наборов значений привели к ошибкам. Данный массив содержит один элемент для каждого набора подставляемых значений. Если метод execute выполнен успешно, то значение этого элемента совпадает с возвращенным методом execute значением (количество реально обработанных записей). Если выполнение метода execute завершилось неуспешно, то значением этого элемента является ссылка на массив c детальной информацией об ошибке ($sth- >err, $sth- >errstr, $sth- >state).

В списочном варианте исполнения метод execute_for_fetch возвращает два скалярных значения: количество наборов значений, использованных им для привязки параметров, и суммарное количество записей, реально обработанных SQL-запросом для каждого набора подставленных значений (или -1, если драйвер не смог определить это значение).

Для более эффективного выполнения метода рекомендуется использовать ссылку на набор подставляемых значений ($sth- >execute(@$tuple_array_ref)).

Пакет

Package Linter::st

Прототип

$tuples = $sth- >execute_for_fetch($fetch_tuple_sub);
$tuples = $sth- >execute_for_fetch($fetch_tuple_sub, \@tuple_status);

($tuples, $rows) = $sth- >execute_for_fetch($fetch_tuple_sub);
($tuples, $rows) = $sth- >execute_for_fetch($fetch_tuple_sub, \@tuple_status);

Возвращаемые значения

Пример

my $dbh = $drh- >connect("DEMO", "SYSTEM", "MANAGER8")
or die "Could not connect to database: " . DBI- >errstr;
my $sth_slct = $dbh- >prepare("select MODEL, MAKE, YEAR from AUTO;");
$sth_slct- >execute();
my $sth_ins = $dbh- >prepare("insert into AUTO_RESERVE(MODEL, MAKE, YEAR)
                               values (?, ?, ?)");
my $fetch_tuple_sub = sub { $sth_slct- >fetchrow_arrayref };
my @tuple_status;
$sth_ins- >execute_for_fetch($fetch_tuple_sub, \@tuple_status);
my @errors = grep { ref $_ } @tuple_status;
if (scalar(@errors)  > 0)
{
    print("errors: " . join(", ", @errors));
}
$sth_slct- >finish();
$sth_ins- >finish();
$dbh- >disconnect();