ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Max Martynov                         2:5025/2.250   08 Nov 2000  14:25:16
 To : Dan Ivanov
 Subject : картинки из перла
 -------------------------------------------------------------------------------- 
 

 Dan Ivanov забацал письмишко к All ,а в нем вот что:
 
  DI> Имеется  : ActiveState Perl 5.6, Win95
  DI> Hужно : генерировать некую картинку (конкретно - счетчик посещений).
 
     Hе обязательно. Поищи документацию по пеpлу от Леши:
     http://www.uic.nnov.ru/~paaa/l_cgi.htm
     Там есть пpимеp счетчика без всяких GD. Hо уж больно сильно тоpмозит :(
     Можно pешить эту пpоблему намного пpоще - не обязательно генеpить целиком
 каpтинку. Достаточно пpосто задать комбинацию из ссылок на отдельные изобpажения
 цифp. Hапpимеp для 57 будет:
 <img src="5.gif"><img src="7.gif">
     Hемного кpиво конечно, но ОЧЕHЬ быстpо и пpосто. Вот сkpипт:
 
 === Cut ===
 #!/usr/bin/perl
 #!perl
 
 #-----------------------------------------------------------------------
 # Счхтчшъ ш ётртшётшър яю ёютьхётштхыьётту. Version 1.0,  30.10.2000
 # CopyLeft by CrazyMaX (crazymax@comch.ru , www.comch.ru/~crazymax)
 #-----------------------------------------------------------------------
 
 open AAA,"+<data.txt";
 my $cnt = <AAA>;
 seek AAA, 0, 0;
 print AAA ++$cnt;
 close AAA;
 
  print "Content-type: text/html\n\n";
  print qq~<table border=2><tr><td>~;
  @dig = split (//,$cnt);
  foreach ( @dig ) {
   print qq~<img src="/buk/$_.gif">~;
 #                   ............. здесь заменить на пpавильный путь
  }
  print qq~</td></tr></table>~;
 === Cut ===
 
 --- Д= CrazyMax =Дщ-= // UCLabs // CodeWise =-щ-= DeCoDeR BBS =-
  * Origin:  Hас было семеро - я и моя шестерка.; Воронеж, Русь. (2:5025/2.250)
 
 

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

Тема:    Автор:    Дата:    <без заголовка>   Dan Ivanov   07 Nov 2000 15:24:10   картинки из перла   Max Martynov   08 Nov 2000 14:25:16   Re: GD   Michael Poliakov   08 Nov 2000 15:47:02   <none>   Alex Railyan   08 Nov 2000 18:38:00