ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Ilia Sprite                          2:5080/112.7   22 Nov 2000  17:02:32
 To : All
 Subject : как?
 -------------------------------------------------------------------------------- 
 

 
 
 я написал скрипт :)
 
 === Hачало минного поля ===
 #!/usr/bin/perl
 $im = new GD::Image(88,31);
 $orange = $im->ImageColorAllocate(255, 255,255);
 $color = $im->ImageColorAllocate (51, 0, 0);
 $redcolor = $im->ImageColorAllocate (202, 61, 61);
 print "Content-type: image/gif\nExpires: 0\nPragma: no-cache\nCache-Control:
 no-cache, must-revalidate\n\n";
 binmode STDOUT;
 print $im->ImageJPEG;
 
 $im->ImageDestroy;
 
 === Конец минного поля ===
 
 как сделать так, чтобы картинка загружалась из файла "image.jpg" ?
 в perldoc не посылать. обьясните русским языком.
 
     Tiddely pom...
 --- http://www.securityelf.net                    http://sprite.securityelf.net
  * Origin: VGA Planets BBS (2:5080/112.7)
 
 

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

Тема:    Автор:    Дата:    как?   Ilia Sprite   22 Nov 2000 17:02:32   Re: как?   Comoderator of RU.CGI.PERL   23 Nov 2000 14:36:18