ru.cgi.perl

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

 Viktor Boyko пишет:
 
 ======= кусь ===============
 
 >     По-моему, где-то в вышеописанном есть ошибка. Скрипт не катит..
 
 ======= кусь ===============
 
 Hу, не знаю. У меня (Win2k, Linux), всё прекрасно `катит`.
 Hапиши, что выдаёт, проверь переменную - $form{'name'} ( просто в твоём 
 варианте она, кажется была - $FORM{'name'}. Путь к файлу с паролями 
 должен находиться в переменной - $file.
 Если скрипт выполняется с `use strict` то проверь, об'явлены ли хэши 
 %users и %FORM, и переменная $file и.т.д. и.т.п.
 И попробуй вариант, приведённый ниже (с $FORM{'name'})
 
 #################################
 
 open (FH, $file) or die $!;
 while(<FH>) {
   my ($uname, $upass) = split /\s+/;
   $users{$uname} = $upass;
 }
 close (FH);
 
 if (exists($users{$FORM{'name'}})) {
   print "User: '$FORM{'name'}'\n";
   print "Pass: '$users{$FORM{'name'}}'\n";
   print "существует.";
 } else {
   print "User: '$FORM{'name'}' - отсутствует.";
 }
 
 #################################
 
 Формат файла паролей:
 name(любой пробельный символ)pass
 
 Hапример:
 name1 pass1
 name2    pass2
 и.т.д.
 
 --- ifmail v.2.15dev5
  * Origin: FKT (2:5020/400)
 
 

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