Forum Webscript.Ru

Программирование => Perl => Тема начата: restart2003 от 29 Августа 2003, 03:35:44

Название: -e
Отправлено: restart2003 от 29 Августа 2003, 03:35:44

Такой врпрос.
При регистрации юзверя создаётся файл с его именем(логином). Надо чтобы при  существующем аакаунте
юзверю выдавалось сообщение о том, что его username кто-то забил до него.
Итак:
if (-e,\'$locate/$name.txt\') #Определяем, создал ли кто аккаунт с подобным именем
{print"Такой аккаунт уже существует!"} #Если имя забито-выводим сообщение об этом
else
{open(FILE, ">$locate/$name.txt") or die("Can not open? reason: $!"); #Если аккаунта с аналогичным именем нет-создаём файл
print FILE "$userinfo"; #пишем юзерскую инфу
close(FILE) or die("Can not close FILE, reason: $!"); #Ну и закроем
}

По идее всё должно работать, однако на практике скрипт постоянно пишет, что такой аккаунт уже есть.
Даже если его нет. То есть всё время находит, что файл $locate/$name.txt при любом $name уже существует.
Если кто знает причины или более удачную реализацию-заранее благодарю за помощь.
Хостинг- фатал.ру.

Название: -e
Отправлено: glebushka от 29 Августа 2003, 04:42:58

if (-e("$locate/$name.txt"))

Название: -e
Отправлено: restart2003 от 29 Августа 2003, 07:51:42

Так пробовал. Script error выдаёт =(

Название: -e
Отправлено: restart2003 от 29 Августа 2003, 08:04:56

glebushka
Всё работает с if (-e("$locate/$name.txt")).
А вчера почему-то не работало.
Спасибо большое!