Forum Webscript.Ru

Программирование => Perl => Тема начата: Hatchet от 27 Ноября 2003, 22:25:54

Название: ubb форум
Отправлено: Hatchet от 27 Ноября 2003, 22:25:54

Ктонить пытался обьединить регистрацию в форуме ubb и регистрацию на сайте?

Идея такая - только зарегистрированные на ресурсе пользователи имеют доступ к форуму...
т.е. регистрацию на сайте нужно совместить регистрацией на форуме...

И так в папке /Members/ создается файл 0000000n.cgi
где содержатся данные пользователя...

т.е. надо создать такой файл... но  я страшно туплю... и как ...

найти последний файл 000000nn.cgi

нужно прочесть все имена каталога, найти имена содержащие только цифры, найти имя файла с именем наибольшей цифры и создать файл с именем наибольшей цифры++.cgi

Как!!!!!!!!

Спасибо!

Название: ubb форум
Отправлено: Chs от 27 Ноября 2003, 22:50:19

perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
perldoc -f sort

Название: ubb форум
Отправлено: Hatchet от 28 Ноября 2003, 19:03:53

Ок :)

Открыл, нашел нужные файлы, отсортировал, убрал расширение, нашел последний....

например это 00000007
это строка а не число...
как заставить прибавить 1 к имеющемся?
переводить в ASII код и там ????

хотя если убрать нолики все получится - можно++,
но как создать новоеимя опять с нолями ... это и провека типа если >10 то 6 нолей , >100 то 5 нолей?

Название: ubb форум
Отправлено: NeoNox от 28 Ноября 2003, 19:50:37

$bef = \'000000007\';
print ++$bef;

Название: ubb форум
Отправлено: Hatchet от 28 Ноября 2003, 21:50:05

упс...

не для похвалы расскажу мое решение:

Я прибавил к полученной цифре после удаоения нолей 100000000

и затер единичку потом используя регулярные выражения :)