На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Внимательно изучите правила раздела перед созданием темы
0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.
Модераторы: ANDLL
  
    > perl+mysql, название столбцов , * при запросе вида SELECT * FROM TABLE
      Добрый день!
      пытаюсь осилить perl+mysql:
      ExpandedWrap disabled
        #!/usr/local/perl/bin/perl -w
        use DBI;
        my $dsn="DBI:mysql:database=db:localhost";
        my $dbh = DBI->connect($dsn,"user", "password");
        my $sth = $dbh->prepare("select * from temp_table;");
        $sth->execute();

      как вытащить названия полей таблицы при запросе вида "SELECT * "? в пхп делаю так:
      ExpandedWrap disabled
        $row=mysql_fetch_array($db->res, MYSQL_ASSOC);
        foreach ($row as $key=>$cell)
        {
           echo $key;
        }

      а в перле так и не смог понять, как это сделать(


      UPD:
      помогло
      ExpandedWrap disabled
        my $ref = $sth->fetchrow_hashref();
        my @column_names = keys %$ref;
      Сообщение отредактировано: вщщр -
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0149 ]   [ 15 queries used ]   [ Generated: 30.04.24, 12:20 GMT ]