Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 31.01.2019, 18:33   #1
max82
Новичок
 
Регистрация: 19.04.2017
Сообщений: 2
Репутация: 10
Вопрос perl dbi-метод selectall_arrayref('', \%attr)

Здравствуйте!
столкнулся с такой задачей от начальника - нужен отчет с названием полей из таблицы в БД .
задача :
через метод DBI selectall_arrayref() получить название полей из запроса select * from rep.report_history('авто'), но получить то смог, но последовательность при каждом запросе рандомная - отчет будет каждый раз выглядеть по-разному ...
это важно тк структура таблицы может меняться вколачивать название полей и потом менять - нельзя.

из документации взято https://metacpan.org/pod/DBI#selectall_arrayref

$ary_ref = $dbh->selectall_arrayref($statement, \%attr, @bind_values);
нужен способ (может в параметрах %\attr) чтоб поля из таблицы(запроса) в той же последовательности были и в отчете.

вот кусок кода
#!/usr/bin/perl
use utf8;
use DBI;
#....
my $rep_aref = $dbh->selectall_arrayref("select * from portal.report('авто');", {Slice => {}} ) or die 'Ошибка получения данных! '.$DBI::errstr;

# получаем название полей из таблицы по запросу
foreach my $data (@{$rep_aref}) {
@name_fileds = keys $data; # название полей в массив
last;
}
print Dumper @name_fileds; # ???
#...
max82 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Python vs Perl, Я выбрал Perl! Причина: а черт ее знает но наверное дело в философии и синтаксисе(TMTOWTDI ) Sna1L Perl 0 13.12.2011 14:10
DBI-Builder Rik Софт 0 20.06.2010 18:44
нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк) PERL newbies Perl 7 03.08.2009 22:25


22:37.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.