ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Igor Kachev                          2:5000/117.18  16 Aug 2000  22:45:45
 To : All
 Subject : Хелп...
 -------------------------------------------------------------------------------- 
 

 
 Hе могу понять, почему у меня постоянно срабатывает ниже приведенная Perl
 программа (вырезка из нее) :
 $psevdo - хранит строку
 из файла берутся строки и по очереди сравниваются (в цикле) так вот он постоянно
 срабатывает... объясните, где ошибка, не доходит, до меня...
 Файл $file_users - существует, на это Perl не ругается...
 
 /////////////////////////////////////////////////////////////////////////////
 open (FILE,"$file_users") || die "Can't Open $file_users: $!\n";
 @LINES=<FILE>;
 close(FILE);
 $SIZE=@LINES;
 
 for ($i=0;$i<=$SIZE;$i++)
 {
   $_=$LINES[$i];
   if ($psevdo == $_)
   {
     print "Content-type: text/html\n\n";
     print "Токая строка уже есть.\n";
     exit;
   }
 }
 /////////////////////////////////////////////////////////////////////////////
 
  //Meverik
 
 ... mailto: ygrik@online.sinor.ru ICQ:43818402
 --- B04B 826D 63B9 296A  B063 20B3 6D1D A0DC
  * Origin: Программу циклом не испортишь (2:5000/117.18)
 
 

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

Тема:    Автор:    Дата:    Хелп...   Igor Kachev   16 Aug 2000 22:45:45   Re: Хелп...   Konstantin Tokar   17 Aug 2000 14:29:51   Re: иЕМР...   Aleksey Kirpichnikow   17 Aug 2000 15:10:20   Хелп...   Sergey Golubitsky   18 Aug 2000 00:01:48