ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : InSAn \(Andrey Panchuk\)             2:5020/400     23 Apr 2002  12:24:11
 To : George Shuklin
 Subject : Re: Обнуление счётчика.
 -------------------------------------------------------------------------------- 
 

 > Как ТАКОЕ может быть? Hе понимаю. В какой-то момент обpазуется файл
 
 нулевого
 
 > pазмеpа :(
 >
 > #!/usr/bin/perl
 > #textcounter (main)
 > $file="counter1.txt";
 > $count=0;
 > open (STAT,"+< $file") or die "Content-type:text/html\n\n";
 > flock (STAT,2);
 > $count=<STAT>;
 > close (STAT);
 
 Файл закрыт. Что мешает другой копии этого скрипта изменить его?
 
 > if ($count!=0){
 >     $count++;
 >     open (STAT,">$file");
 >     print STAT $count;
 >     close (STAT);
 >     print "Content-type:text/html\n\n";
 >     print "<b>",$count,"</b>";
 > }
 > else {print "Content-type:text/html\n\n";}
 - ---
 Best regards, InSAn
      http://www.PROext.com
 --- ifmail v.2.15dev5
  * Origin: PROext (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Обнуление счётчика.   George Shuklin   23 Apr 2002 03:17:26   Re: Обнуление счётчика.   InSAn \\(Andrey Panchuk\\)   23 Apr 2002 12:24:11   Re: Обнуление счётчика.   Artem Chuprina   23 Apr 2002 13:59:01