Получить значения всей выборки данных в виде массива хеш-массивов (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", "MANAGER8")
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();