Доступные версии документации

Получить значения всей выборки данных в виде массива хеш-массивов (selectall_hashref)

Назначение
 

Метод selectall_hashref объединяет вызовы методов prepare, execute и fetchall_hashref в один вызов. Если результатом SQL-запроса является непустая выборка данных, то метод возвращает ссылку на хеш-массив, элементами которого являются хеш-массивы значений полей SQL-запроса.

Пакет

Package Linter::db

Прототип
$hash_ref = $dbh->selectall_hashref($statement, $key_field);

$hash_ref = $dbh->selectall_hashref($statement, $key_field, \%attr);

$hash_ref = $dbh->selectall_hashref($statement, $key_field, \%attr, @bind_values);
Параметр Описание
$statement  Текст SQL-запроса (возможно, с параметрами). SQL-запрос может быть предварительно претранслирован (подготовлен с помощью метода prepare), тогда при выполнении метода selectall_hashref выполнение метода prepare будет пропущено
%key_field  Задает имя, которое должно использовать как хеш-ключ возвращаемого хеш-массива. Параметр может быть задан в виде ссылки на массив с несколькими именами, что приведет к созданию дерева вложенных хешей. Если хеш-ключ добавляемой в выборку данных записи совпадает с хеш-ключом ранее вставленной записей, то старая запись заменяется новой
\%attr  См. метод selectall_array
@bind_values  Массив, содержащий значения привязываемых параметров (если SQL-запрос содержит параметры)
Возвращаемые значения
Переменная Описание
$hash_ref  При наличии данных возвращается ссылка на хеш-массив, элементами которого являются хеш-массивы значений полей SQL-запроса. В случае отсутствия данных или при наличии ошибок выполнения методов prepare и/или execute возвращается undef
$DBI::errstr  Диагностическое сообщение (в случае ошибки выполнения метода)
Пример
my $dbh = $drh->connect("DEMO", "SYSTEM", "MANAGER")
        or die "Could not connect to database: " . DBI->errstr;
      my $statement = "select MODEL, COLOR, YEAR, CHKMILE from AUTO;");
my $hash_ref = $dbh->selectall_hashref("select MODEL, COLOR, YEAR, CHKMILE
                                        from AUTO;", 2);
my @ary_keys = keys(%{ $hash_ref });
for (my $i = 0; $i < scalar(@ary_keys); $i++)
{
    my $key = $ary_keys[$i];
    print($hash_ref->{$key}{MODEL} . "\n");
    print($hash_ref->{$key}{COLOR} . "\n");
    print($hash_ref->{$key}{YEAR} . "\n");
    print($hash_ref->{$key}{CHKMILE} . "\n");
    print($hash_ref->{$key}{CHKMILE} . "\n");
    print("\n");
}
$dbh->disconnect();
Заметили ошибку?
Выделите текст и нажмите Ctrl + Enter