ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      17 Jun 2002  13:11:05
 To : All
 Subject : Еще раз про счетчик
 -------------------------------------------------------------------------------- 
 

 
  Использую простой текстовый счетчик.
  Вроде бы все правильно сделано, но иногда
  он или сбрасывается, или подставляется не то число.
  Что не правильно?
 
 use strict;
 my ($count);
 my $countfile = "counter.dat";
 my $use_flock = 1;
 
 # Counter
 open(COUNT,"<$countfile");
  if ($use_flock) {flock(COUNT, 2) }
 $count=<COUNT>;
 chomp $count;
 close(COUNT);
 print "Content-type: text/html\n\n";
 print "\t\t$count";
 open(COUNT,">$countfile");
  if ($use_flock) {flock(COUNT, 2) }
 $count++;
 print COUNT $count;
 close(COUNT);
 # End counter
 * Hа каждый час ума не напосешься
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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