ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vjacheslav Trushkin                  2:5020/400     24 Nov 2000  21:23:46
 To : All
 Subject : Срочно помогите. Please.
 -------------------------------------------------------------------------------- 
 

 Hi!
  Такая проблема: есть две картинки "image1.png" и "image2.png".
 Hужно соединить их в одну. Я пробовал так:
 
 - --- start test.pl ---
 #!/usr/bin/perl
 # <-- путь к perl правильный
 $ext = "png";
 # <-- можно изменить на "gif"
 print "Content-type: image/".$ext."\n\n";
 
 # <-- эту строку выполняет
 $image = new GD::Image(200,100);
 # <-- а эту не выполняет
 
 open (TILE, "image1.".$ext);
 $tile = newFromPng GD::Image(TILE);
 close(TILE);
 $image->setTile($tile);
 $image->filledRectangle(0,0,100,100,gdTiled);
 
 open (TILE, "image2.".$ext);
 $tile = newFromPng GD::Image(TILE);
 close(TILE);
 $image->setTile($tile);
 $image->filledRectangle(100,0,200,100,gdTiled);
 
 print $image->png;
 - --- end test.pl ---
 
 Приветствуются любые предложения.
 
 -----
 Vjacheslav Trushkin.
 E-Mail: trushkin@europe.com
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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