Программирование > Perl

Помогите с ImageMagic

(1/1)

APL:
Локально работает, но у прова на хостинге картинка поверх накладывается без прозрачности, хотя она правильный gif. Помогите выяснить что не так...

my $image = new Image::Magick();
my $x = $image->Read("$variables::fpath_document".\'/images/protect2/fon.png\');
my ($width, $height) = $image->Get(\'width\', \'height\');
warn "\\n\\n$x" if "$x";

my $fn = "$variables::fpath_document"."/images/protect2/31.png";
$fn =~ s/\\/{2,}/\\//g;

my $image_mark = new Image::Magick();
$x = $image_mark->Read("$fn");
$image->Composite( \'image\'=>$image_mark,  \'x\'=>"0", \'y\'=>"0",  \'\'=>\'\' );

print "Content-type: image\\/png\\n\\n";                    
binmode STDOUT;
$x = $image->Write("png:-");
exit;

APL:
Тьфу, ошибся тут в примере не gif, конечно, но и если на гифы меня. тоже не фурычит :(

commander:
APL
пользуй Imager.

Image::Magic - кривой...

Навигация

[0] Главная страница сообщений