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

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

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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2019, 17:33   #1
max82
Новичок
Джуниор
 
Регистрация: 19.04.2017
Сообщений: 2
Вопрос 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 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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

Реклама для незарегистрированных, регистрация на форуме