ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Slava Ivanov                         2:5020/400     13 Jul 2003  00:41:11
 To : Viktor Boyko
 Subject : Re: форма
 -------------------------------------------------------------------------------- 
 

 Viktor Boyko пишет:
 
 > Как енто сделать? Hаишите плз код с момента открытия файла
 > для чтения и цикла перебора имён из файла и имени в переменной..
 
 open (FH, $file) or die $!;
 while(<FH>) {
   ($uname, $upass) = split;
   $users{$uname} = $upass;
 }
 close (FH);
 
 if (exists($users{$form{'name'}})) {
   print "$form{'name'} существует.";
 } else {
   print "$form{'name'} отсутствует.";
 }
 
 #############
 Формат файла паролей:
 name(любой пробельный символ)pass
 
 Hапример:
 name1 pass1
 name2  pass2
 и.т.д.
 --- ifmail v.2.15dev5
  * Origin: FKT (2:5020/400)
 
 

Вернуться к списку тем, сортированных по:

Тема:    Автор:    Дата:    Re: форма   Slava Ivanov   13 Jul 2003 00:41:11   форма   Viktor Boyko   15 Jul 2003 16:41:10