| imho.ws |
![]() |
|
|
|
# 1 | |
|
Member
Регистрация: 19.10.2004
Сообщения: 394
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
проблемы с Image::Magick + mod_perl
Есть такой скриптик:
Код:
#!/usr/bin/perl
use strict;
use Image::Magick;
my $image = Image::Magick->new();
$image->Set(size=>"500x400");
$image->ReadImage('xc:white');
my $str = 'a32df';
$image->Annotate( antialias => 'true',
pointsize => 44,
fill => 'red',
x => 50,
y => 50,
encoding => 'windows1251',
text => $str );
print "Content-type: image/gif\n\n";
binmode STDOUT;
$image->Write('gif:-');
Цитата:
|
|
|
|