ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Ponomarenko                2:5030/1067.10 04 Jan 2003  01:28:22
 To : All
 Subject : Счетчик
 -------------------------------------------------------------------------------- 
 

 Вот написал счетчик. Hе могу понять почему глючит. Выдает 29, 20, 31, ... , 39,
 30, 41,...
 Вызывается так:
 <img src="counter?num=1">
 <img src="counter?num=2">
 <img src="counter?num=3">
 <img src="counter?num=4">
 В результате получается четыре картинки с цифрами:
 
 #!/usr/bin/perl -w
 use CGI qw(:standard);
 my $num=param("num");
 open(COUNT,"count");
 $nomer=<COUNT>;
 close(COUNT);
 chomp($nomer);
 if($num eq "1") {
     $nomer++;
     open COUNT,">count";
     print COUNT $nomer;
     close(COUNT);
 }
 @nomber=split("",$nomer);
 $fil="../html/pics/$nomber[$num-1].gif";
 print"Content-type: image/gif\n\n";
 open(PIC,$fil);
 while(defined($rec=<PIC>)) {
 print $rec;
 }
 close(PIC);
 
 Alexander
 
 ---
  * Origin:  (2:5030/1067.10)
 
 

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

Тема:    Автор:    Дата:    Счетчик   Alexander Ponomarenko   04 Jan 2003 01:28:22   Re: Счетчик   Dmitry Y. Labutin   04 Jan 2003 13:06:32   Счетчик   kan   07 Jan 2003 00:43:41