Forum Webscript.Ru

Программирование => Perl => Тема начата: Gekt0r от 03 Ноября 2009, 11:12:31

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 03 Ноября 2009, 11:12:31

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

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

Название: perl+postgres, ошибка
Отправлено: arto от 03 Ноября 2009, 13:48:03

с тем, что array не one-dimensional, естественно

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 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 - глобальный объект, которая используется для связи с БД)

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

Название: perl+postgres, ошибка
Отправлено: arto от 06 Ноября 2009, 11:58:52

$self->sections() -- ?

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 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} };
}

Название: perl+postgres, ошибка
Отправлено: arto от 06 Ноября 2009, 12:44:09

максимум -- return в do не используется.
а так -- ошибок не видно.

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 06 Ноября 2009, 14:23:53

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

Название: perl+postgres, ошибка
Отправлено: arto от 06 Ноября 2009, 15:51:17

"число в фигурных скобках " -- \'{\'.join(\',\', $self->sections() ).\'}\' ?

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 06 Ноября 2009, 15:56:22

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

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

Название: perl+postgres, ошибка
Отправлено: Gekt0r от 10 Ноября 2009, 10:51:59

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

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

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