Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > DBM-файлы и exists

Автор: maks 14.5.2004, 16:26

Есть код :

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

А если вот так:

Код

exit unless (exists $db_egold_email{$login});

Автор: Guest 14.5.2004, 17:20

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

ЗЫ щас по справочнику посматрю, что за unless ...

Автор: Guest 14.5.2004, 17:24

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

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