Темы

1

Perl / perl+postgres, ошибка

« : 03 Ноября 2009, 11:12:31 »

Всем привет, возникла проблемка...
Есть сервер Апач, на котором стоит mod_perl, есть база postgres.
На сайте есть скрипт,  который время от времени закидывает в базу данные. Так вот, если база пуста, то все проходит нормально.
Если база не пуста, т.е. данные перезаписываются, то вылазит ошибка DBD::Pg::db "array must be one-dimensional"

с чем это может быть связано?

2

Теория, алгоритмы и стандарты / формирование строки на основе выборки из массива

« : 10 Апреля 2008, 14:16:00 »

Всем привет, уже третий день копаюсь с вроде простым алгоритмом, но нахожусь в совершеннейшем ступоре.
Скрипт формирует таблицу расписания для студентов.
Для каждого предмета нужны интервалы дат,  в которые он проходит.
В массиве @split_values лежат даты проведения, в каждой ячейке по дате.
Мне требуется сформировать его по-другому
То есть бывает так, что предмет идет, допустим несколько недель, потом прекращается, потом снова начинается, например, с 18 февраля по 3 марта, потом перерыв, потом идет 17 марта, снова перерыв, потом с 31 марта по 21 апреля. В этом случае массив @split_values содержит значния: 18.02 25.02 03.03 17.03 31.03 07.04 14.04 21.04.
Вывод должен быть в форме 18.02 - 03.03, 17.03, 31.03 - 21.04
у меня все никак не выходит... Пишу на Перле, если это имеет значение...
можете подсказать, как это можно реализовать?
Спасибо

3

Perl / Сортировка двумерного массива

« : 07 Марта 2008, 14:13:58 »

Всем привет, полазил по форуму и гуглу, не нашел пока решения...
Задача в следующем:
Есть двумерный массив $table []
В нем лежит таблица с расписанием занятий. Первая ячейка строки - день недели, строка вида \'ПН\', \'ВТ\', \'СР\'  и т.д.
доступ к значениям ячейки - $table->

• ->
• ->{value} - значение первой ячейки первой строки, $table->
• ->[1]->{value} - второй строки и т.д.

надо отсортировать весь массив по дню недели, чтобы сначала шли все понедельники, потом - вторники и т.д.
Я пока программист не очень умелый) и хочу стать лучше) нужна ваша помощь. По идее это должно быть несложно, парой строк можно сделать...

4

Perl / Подскажите с кодом

« : 05 Февраля 2008, 16:15:18 »

Всем привет, сейчас разбираю код, написанный другим человеком, своих знаний не хватает, в инете тоже толком ничего не нашел, очень нужна помощь...

в процессе работы программа работает с данными в нескольких двумерных массивах. Один из них - $table.

Там есть, к примеру, такое просваивание:
$table->[1]->[1]->{value} = чему-то там;
Я не понимаю, что означает это {value}, зачем оно нужно и что это вообще... При выводе на печать выводится значение ячейки таблицы. При выводе без этого {value} выводится ссылка на хэш (типа HASH(0x9c2d728) ). Интуитивно понятно, что эти фигурные скобки - какая-то операция типа обращения к методу. Но можете объяснить, как там точно все происходит?
Есть похожие обращения, типа $table->[1]->[1]->{root}, $table->[1]->[1]->{span}, $table->[1]->[1]->{no_display}, $table->[1]->[1]->{colspan}.

эти вообще на печать ничего не выводят, но в программе используются, что-то в них сравнивается, непонятно что...

5

Perl / Помогите разобрать код...

« : 25 Декабря 2007, 18:31:11 »

Народ, подскажите, копаюсь с чужим кодом... Непонятен блок, как и что делает... Буду признателен, если поможете разобрать....

@sections - массив секций, @subs - подсекций.
$keeper - переменная для выборки из базы по заданным параметрам.
show_in_map() - Определяет, стоит ли флаг для отображения секции или подсекции

@sections = grep { exists $_->{subs} } map {
    my @subs = $keeper->get_sections(
    s => $_->id(),
    status => 1,
    class => \'ThemeSection\'
          );

   @subs = grep { $_->show_in_map() } @subs;

   if (@subs) {
            $_->{subs} = \\@subs;
        $sum += scalar @subs;
        }
    $_;
 } @sections;

Понятно, что по выдранному из кода куску сложно что-то определить... Но тем не менее.. хотя бы последовательность выполнения блока, и какой кусок что делает, подскажите. А то я вконец запутался в этих map и grep и блоках. Понял только, что берется массив @sections, и что-то с ним делается...