Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как избавиться от ошибки, uninitialized value in concatenation (.) 
:(
    Опции темы
AlexanderI
Дата 18.2.2008, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 9.7.2004

Репутация: 2
Всего: 3



Помогите избавиться от ошибки или хотябы сделать так, чтобы в логах эта ошибка не фиксировалась.

Вот строка из кода на которую ссылается ошибка
Код

elsif ($$col{name} eq 'eorder') {$var=qq[<a href="$sturl&mode=order&id=$$rec{id}$purl" title="$$rec{id}" class="act1">\[ляля\]</a>];}      


А это лог из Apache 
test.pm: Use of uninitialized value in concatenation (.) or string at zz.pm line 162.\n

Но скорее всего ошибка вот в этой строке:
Код

        elsif ($$col{name} eq '_delete') {$var=(!$$rec{deny_del} and ($$rec{id} !~ m/^($$struct{deny_delits}[0])$/g) ? qq[<a href="$sturl&mode=delete1_do&id=$$rec{id}" title="$$rec{id}" class="act2">\[help\]</a>] : '&nbsp;');}


Т.е. когда значение deny_delits=>[qw()] пустое возникает эта ошибка.
Что можно поправить в коде чтобы не возникала эта ошибка

Это сообщение отредактировал(а) AlexanderI - 18.2.2008, 12:46
--------------------
Магазин детских игрушек  | Авто ВАЗ
PM MAIL   Вверх
Unrealm
Дата 18.2.2008, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 19.7.2007

Репутация: 1
Всего: 1



Как вариант, сделать его не совсем пустым, т.е. просто deny_delits=> "" или перед тем, как использовать проверять его defined().
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0574 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.