ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Aleksey Kirpichnikow                 2:5020/400     17 Aug 2000  15:10:20
 To : All
 Subject : Re: иЕМР...
 -------------------------------------------------------------------------------- 
 

 On Wed, 16 Aug 00 21:45:45 +0300, Igor Kachev
 <Igor.Kachev@p18.f117.n5000.z2.fidonet.org> wrote:
 
 > Привет All!
 > 
 > Hе могу понять, почему у меня постоянно срабатывает ниже приведенная Perl
 > программа (вырезка из нее) :
 > $psevdo - хранит строку
 > из файла берутся строки и по очереди сравниваются (в цикле) так вот он
 > постоянно срабатывает... объясните, где ошибка, не доходит, до меня...
 > Файл $file_users - существует, на это Perl не ругается...
 > 
 > /////////////////////////////////////////////////////////////////////////////
 > open (FILE,"$file_users") || die "Can't Open $file_users: $!\n";
 > @LINES=<FILE>;
 > close(FILE);
 > $SIZE=@LINES;
 
   $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
 
 --- ifmail v.2.15dev5
  * Origin: PACOnet (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Хелп...   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