|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Viktor Boyko 2:5030/2121.3 15 Jul 2003 16:41:10 To : Slava Ivanov Subject : форма -------------------------------------------------------------------------------- Мои бортовые системы запеленговали, что в Воскресенье Июль 13 2003 00:41, Slava Ivanov писал Viktor Boyko: >> Как енто сделать? Hаишите плз код с момента открытия файла >> для чтения и цикла перебора имён из файла и имени в переменной.. SI> open (FH, $file) or die $!; SI> while(<FH>) { SI> ($uname, $upass) = split; SI> $users{$uname} = $upass; SI> } SI> close (FH); SI> if (exists($users{$form{'name'}})) { SI> print "$form{'name'} существует."; SI> } else { SI> print "$form{'name'} отсутствует."; SI> } По-моему, где-то в вышеописанном есть ошибка. Скрипт не катит.. Гигант мысли, Viktor Boyko aka Re@ctor, говорит вам "до_свиданья". =-=-=-=-=-=-=-=-=-=-[Вторник Июль 15 2003 16:41]-=-=-=-=-=-=-=-=-=-= ... . winamp stopped .... --- После моего дня варенья прошло 126 дней (ну или 4 месяца)! :) UNREG * Origin: Вот и сказочке ESC, а кто не понял - F1. (2:5030/2121.3) Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/238933f142ef1.html, оценка из 5, голосов 10
|