Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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