ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Evgeny Malenkov                      2:5020/1386.50 10 Dec 2001  10:25:08
 To : All
 Subject : таймаyт
 -------------------------------------------------------------------------------- 
 

 
 
 вот написал себе счетчик, а сеpевp h1.ru pyгается, что он слишком долго
 выполняется и пpеpывает его. хотя y меня дома он ноpмально pаботает. что может
 вызывать итакyю задеpжкy?
 ============= Уздеся началось count.cgi ===================
 #!/usr/bin/perl
 use CGI qw(:standard);
 #use CGI;
 $query=new CGI;
 
 $log_dir="/home/e/evgem.h1.ru/u/count/";
 $rehost_time=1000;
 $count_file="esmcount.txt";
 ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
 if ($mady< 10) {
  $mday="0$mday";
 }
 $mon=$mon+1;
 if ($mon< 10) {
  $mon="0$mon";
 }
 $year=$year+1900;
 $hosts_log="$mday-$mon-$year";
 $plus="true";
 $ip=$ENV{'REMOTE_ADDR'};
 $sec_time=$hour*60*60+$min*60+$sec;
 
 if ($min < 10){
  $min="0$min";
 }
 open (HOSTS,"< $log_dir$hosts_log");
 flock HOSTS,2;
 $n=0;
 while (<HOSTS>) {
 $n++;
 }
 seek HOSTS,0,0;
 @HOSTS=<HOSTS>;
 close HOSTS;
 $i=$n-1;
 while ($ip ne @CHOST[1]) {
  $host1=@HOSTS[$i];
  @CHOST=split(">",$host1);
  $i--;
 }
 
 if (($sec_time-@CHOST[0])>$rehost_time) {
  $plus="true";
 }
 else {
  $plus="false";
 }
 
 open (HOSTS,">> $log_dir$hosts_log");
 flock HOSTS,2;
 print HOSTS
 $sec_time,">",$ENV{'REMOTE_ADDR'},">",$ENV{'HTTP_REFERER'},">",$hour,":",$min,"
 
 >",$ENV{'DOCUMENT_URI'},">\n";
 
 close HOSTS;
 open (HOSTS,"< $log_dir$hosts_log");
 flock HOSTS,2;
 @HOSTS=<HOSTS>;
 close HOSTS;
 
 open (COUNT,"< $count_file");
 flock COUNT,2;
 @COUNTER=<COUNT>;
 close COUNT;
 $cur_count=@COUNTER[0];
 if ($plus eq "true") {
  $cur_count++;
  open (COUNT,"> $count_file");
  flock COUNT,2;
  print COUNT $cur_count;
  close COUNT;
 }
 print $cur_count;
 ============= Уздеся закончилось count.cgi =================
      С вишезами и pегаpдзами,/*яEvgenyя*/.
 --- GoldED/386 2.50+
  * Origin: Hет и не будет вам ориджина (2:5020/1386.50)
 
 

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

Тема:    Автор:    Дата:    таймаyт   Evgeny Malenkov   10 Dec 2001 10:25:08   Re: таймаyт   Artem Chuprina   10 Dec 2001 16:49:04   таймаyт   Alexey Gradovtsev   16 Dec 2001 22:04:00   Re: таймаyт   Artem Chuprina   17 Dec 2001 12:57:32   таймаyт   Alexey Gradovtsev   18 Dec 2001 14:49:27   Re: таймаyт   Artem Chuprina   18 Dec 2001 18:23:07