ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Kabanov Alexey                       2:5009/2.34    29 Sep 2001  22:05:39
 To : All
 Subject : счетчик
 -------------------------------------------------------------------------------- 
 

 
 Имею самописный счетчик посещений:
 
 open(count, "<$counter");
  @count=<count>;
  foreach (@count) {
  if (/$slk=(\d*);/){$dob=$1+1;s|$slk=\d*;|$slk=$dob;|gi}}
 close(count);
 
 open(countout, ">$counter");
 flock(countout, LOCK_EX);
 print countout @count;
 close(countout);
 
 Вызываю его как картинку с защитой от кеширования.
 Hо посещения засчитываются не все (сравнил его показания с счетчиком топ-лист)
 Скажите пожалуйста, что ему не хватает для учета ВСЕХ посещений?
 
 Заранее благодарен за ответ.
 
                 C уважением, Kabanov Alexey.
 ... ........... http://iptel.al.ru - Все о IP-Телефонии
 --- ----------- Бесплатные и в кредит звонки через Интернет
  * Origin: .... Email - iptel@al.ru (2:5009/2.34)
 
 

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