Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : George Shuklin                       2:5030/1377    23 Apr 2002  03:17:26
 To : All
 Subject : Обнуление счётчика.
 -------------------------------------------------------------------------------- 
 
 Как ТАКОЕ может быть? 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";}
 wBL, George.
 
 --- GoldED+/W32 1.1.1.2
  * Origin: Team [nya в шоpтиках] (2:5030/1377)
 
 

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

 Тема:    Автор:    Дата:  
 Обнуление счётчика.   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 
Архивное /ru.perl/147533cc4d288.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional