ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Ponomarenko                2:5030/1067.10 23 Dec 2002  03:36:33
 To : All
 Subject : Счетчик
 -------------------------------------------------------------------------------- 
 

 Вот написал счетчик. Hе могу понять почему глючит. Выдает
 29,20,31,...,39,30,41,...
 Вызывается он так:
 
 Посмотрите плиз:
 
 #!/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
 
 --- GoldED+/386 1.1.4.7
  * Origin:  (2:5030/1067.10)
 
 

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