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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DBM-файлы и exists, простой вопрос 
:(
    Опции темы
maks
  Дата 14.5.2004, 16:26 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Есть код :

dbmopen (%db_egold_email, "admin/egold_email", 0644 ) || die "Ошибка при открытии DBM-файла egold_email: $!";
if ( ! exists($db_egold_email{"$login"}) ) ### это строка 192
{
exit;
}
dbmclose(%db_egold_email);

При запуске скрипта с этим кодом мне возвращает ошибку:

Software error:
AnyDBM_File doesn't define an EXISTS method at user_earning.pl line 192


я только учусь, и не могу понять чё от меня требует скрипт ... да и на другом хостинге раньше вроде работал такой код...

  Вверх
GoodBoy
Дата 14.5.2004, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

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



А если вот так:
Код
exit unless (exists $db_egold_email{$login});


Это сообщение отредактировал(а) GoodBoy - 14.5.2004, 17:13


--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
Guest
Дата 14.5.2004, 17:20 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











но у меня там не только exit, там куча подпрограм + операторов... это я для читабельности упростил


ЗЫ щас по справочнику посматрю, что за unless ...
  Вверх
Guest
Дата 14.5.2004, 17:24 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











не мспользовать ! перед exists

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


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

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


 




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


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

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