Сообщения

1

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

« : 10 Ноября 2009, 10:51:59 »

Разобрался.
Глюк был в функции $self->sections(), соответственно, строчке

\'{\'.join(\',\', $self->sections() ).\'}\'

функция иногда возвращала данные в формате массива, с фигурными скобками, а иногда - просто как скаляр. Соответственно, когда возвращался массив, ему добавлялись еще одни фигурные скобки, откуда и возникала ошибка "array must be one-dimensional"
Исправил (:

2

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

« : 06 Ноября 2009, 15:56:22 »

как я понял, в некоторых случаях массив уже записан в фигурных скобках, т.е. фигурных скобок оказывается двое. Отсюда, вероятно, и ошибка "array must be one-dimensional"

сейчас пробую разобраться

3

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

« : 06 Ноября 2009, 14:23:53 »

я вывел в логи то, что хранится в массиве. Как правило это просто число (номер секции). В какой-то момент там появляется число в фигурных скобках (например, {1511}, и выскакивает ошибка. Я так предполагаю, что тут дело в формате записи массива в postgres и perl.
откуда только эти фигурные скобки берутся, пока непонятно

4

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

« : 06 Ноября 2009, 12:21:15 »

sub sections
{
   my ($self, @sects) = @_;

   if (ref($self->{sections}) ne \'ARRAY\') { $self->{sections} = []; }
   if (@sects)  {  @{ $self->{sections} } = @sects }

   return @{ $self->{sections} };
}

5

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

« : 06 Ноября 2009, 11:22:18 »

английский я знаю))

в общем нашел я проблемную строчку:


$keeper->{SQL}->do("update $keeper->{documents_table} set mtime = now(), dtime = ?, sections = ?, status = ?, name = ? where id = ?", {}, $self->{dtime}, \'{\'.join(\',\', $self->sections() ).\'}\', $self->{status}, $self->{name}, $self->{id}) || do  { $keeper->error(); $keeper->{SQL}->rollback()    if ( ! $keeper->{handcommit}); return undef };


($keeper - глобальный объект, которая используется для связи с БД)

в чем тут может быть ошибка?

6

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

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

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

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

7

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

« : 11 Апреля 2008, 15:11:51 »

все, разобрался, подсказали на другом форуме:
Первый проход (от 1 до n-1): если разница между arr(i) и arr(i+1) = неделя -> arr(i)=arr(i)+" - "; иначе arr(i)=arr(i)+",  ";
Второй проход (от 1 до n-2): если и у arr(i), и arr(i+1) на хвосте минус -> arr(i+1)=arr(i); arr(i)="";
И финальный Join

8

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

« : 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
у меня все никак не выходит... Пишу на Перле, если это имеет значение...
можете подсказать, как это можно реализовать?
Спасибо

9

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

« : 11 Марта 2008, 14:37:57 »

09h, идея сработала, спасибо большое!
А с ссылками в Перле гемор тот еще)

10

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

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

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

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

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

11

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

« : 06 Февраля 2008, 11:34:59 »

arto:
если я скажу, что это ключ ссылки на хеш, оно вам поможет?

ну если объянсите, что такое ключ, но вполне)
если я правильно понял, у меня есть ссылка на двумерный массив) Меня смущает, что все эти {root}, {value} и т.п. нигде не объявлены, и непонятно, откуда берутся в них значения. Если, кстати, подставить в фигурные скобки полную абракадабру, то никакой ошибки не возникает, откуда можно предположить, что эти конструкции формируются динамически... Вопрос только, как:) И почему в них есть пустые значения)
доки я почитаю, разумеется. Но если можно сжато объяснить, будет классно)

12

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

« : 05 Февраля 2008, 17:39:06 »

Спасибо, конечно...
Но вот я удивляюсь, знающему человеку ответить - 10 минут времени, а мне в доках сутки копаться надо, чтобы найти ту порцию инфы, которая нужна

13

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}.

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

14

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

« : 27 Декабря 2007, 11:28:27 »

arto:
где закрывающая скобка у "$keeper->get_sections" ?

а, невнимательно скопировал. Она 4 строчками ниже, я туда фигурную скобку поставил по ошибке. Но в самом коде все правильно.

Phoinix:
Gekt0r

Интересно, а где ты этот фреймворк взял?

А вообще, этот код добавляет в объекты секций массивы объектов дочерних секций по параметру show_in_map()...

Причем довольно криво...

это из движка сайта, с которым мне приходится разбираться...
В принципе, что я понял, он берет массив секций, выбирает для каждого список подсекций, фильтрует их по параметру show_in_map, а потом еще выбирает из секций только те, у которых есть подсекции..
А почему криво?

15

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

« : 26 Декабря 2007, 12:41:20 »

arto:
он у вас и работать не будет, скобки не совпадают.

код работает.. Со скобками нормально все.. Просто он выполняется немного некорректно, я ищу ошибку, найти не могу

commander:
просто возьми и перепиши...

просто переписать не удастся... Эотт код -лишь часть большого модуля, целиком его переписывать - дело неблагодарное. И я хочу все-таки разобраться во всех этих блоках и операторах.

Народ,можете помочь?