ЛИНТЕР

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

Назначение

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

Примечание

Хеш-массив (ассоциативный массив) – это массив, доступ к данным которого осуществляется при помощи ключа, ассоциированного со значением.

Т.к. доступ к последующим записям сформированной выборки данных не поддерживается, то метод эффективно применять к SQL-запросам, возвращающим одну запись, например,

select model, make from auto where color = 'RED' limit 1;
select count(*) from person;

Пакет

Package Linter::db

Прототип

$hash_ref = $dbh- >selectrow_hashref($statement);

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

$hash_ref = $dbh- >selectrow_hashref($statement, \%attr, @bind_values);

Параметр		Описание
`$statement`		Текст SQL-запроса (возможно, с параметрами). SQL-запрос может быть предварительно претранслирован (подготовлен с помощью метода `prepare`), тогда при выполнении метода `selectrow_hashref` выполнение метода `prepare` будет пропущено
`\%attr`		Значение параметра не используется, игнорируется
`@bind_values`		Массив, содержащий значения привязываемых параметров (если SQL-запрос содержит параметры)

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

Переменная		Описание
`$hash_ref`		При наличии данных возвращается ссылка на ассоциированный массив, содержащий первую запись выборки данных. В случае отсутствия данных или при наличии ошибок выполнения методов `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,
                (EXTRACT(YEAR from SYSDATE) – (1900 + YEAR)) as AGE,
                MAKE || ' (' || BODYTYPE || ')' from AUTO
                where CYLNDERS = 8;";
my $hash_ref = $dbh- >selectrow_hashref($statement);
print($hash_ref- >{MODEL} . "\n");   #MODEL
print($hash_ref- >{COLOR} . "\n");   #COLOR
print($hash_ref- >{YEAR} . "\n");    #YEAR
print($hash_ref- >{CHKMILE} . "\n"); #CHKMILE
print($hash_ref- >{AGE} . "\n");     #AGE
print($hash_ref- >{""} . "\n");      #last unnamed column
$dbh- >disconnect();