Mysql --> Dbi

Тема в разделе "Perl программирование", создана пользователем allexeym, 17 июл 2007.

Статус темы:
Закрыта.
  1. allexeym

    allexeym Гость

    начал переделывать скрипт, который использовал модуль Mysql, под использование модуля DBI

    и хотел спросить
    как адаптировать
    вот такое



    Код (Text):
    @last_shop_id_arr=$sth->fetchcol(0);
    @last_shop_name_arr=$sth->fetchcol(1);
    @last_shop_subdir_arr=$sth->fetchcol(2);
    @last_shop_divid_arr=$sth->fetchcol(3);
    @last_shop_time_arr=$sth->fetchcol(4);

    под модуль DBI?
     
  2. Vovochka

    Vovochka Гость

    Бу га га... :angry:

    Не плохо было бы увидеть весь код запроса... При использовании DBI это скорее всего бедет выглядеть так:
    Код (Text):
    $dbh = DBI->connect(....);
    $sth = $dbh->prepare('SELECT * FROM .. WHERE id = ?');
    $sth->execute($id);
    while (@row = $sth->fetchrow_array) {
    #И здесь обрабатываешь строчку из бд. Если так хочешь, можешь распихивать ее по своим массивам.
    }
    Но я предпочитаю вместо $sth->fetchrow_array использовать $sth->fetchrow_hashref
    Так ты получишь ссылку на хеш, ключами которого будут поля таблицы, а значения - значения полей в строке :)
     
  3. allexeym

    allexeym Гость

    эт начало
    а после идёт то на чем я застопорился

    я так понимаю , что вот эта строка @last_shop_id_arr=$sth->fetchcol(0) выбирает 0-й столбец

    и как мне выбрать 0-й через DBI?

    Код (Text):
    while (@row = $sth->fetchrow_array) {
    #И здесь обрабатываешь строчку из бд. Если так хочешь, можешь распихивать ее по своим массивам.
    }
    я не понял)
    с перлом знаком буквально 3 дня)
    как мне написать эту замену :angry:
     
  4. allexeym

    allexeym Гость

    ну вот так да, работает

    т.е. выводить то что надо
    но без пробелов

    вот такой вот кучей
    2393241524412440244724452463247324722469246824652395240

    а надо шоб было так

    239 324 152 4412 44024 472 44524 6324 732 472 2469 2468 246 523 95 240

    или оно пофиг?
    или зависит от того что должен делать скриптик?
     
  5. Vovochka

    Vovochka Гость

    Вывод зависит от тебя :) Добавишь пробелы, будут пробелы :)
    Через DBI получить весь первый столбец:
    Код (Text):
    @first_col;
    while (@row = $sth->fetchrow_array) {
    push @first_col, $row[0];
    }
    Так ты получишь масив, состоящий из всех первых элементов.

    используя вывод: print "$row[0] "; ты получишь пробелы :D
    используя вывод: print "$row[0]\n"; ты получишь вывод с новой строки :)

    ВСЕ! Зависит от того, что должен делать скрипт. Точнее, пожалуйста.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей